Как использовать AsCurrency Delphi для отображения валюты без символа валюты?

Question

Я пытаюсь отобразить значение валюты в сетке, но я не хочу, символ валюты будет показан ниже:

if fPreferences.WorksheetFormat = 'Numeric' then 
begin 
    CurrencyString := ''; 
    Value := FieldByName('UnitList').AsCurrency; 
end else 
    Value := CurrToStrF(FieldByName('UnitList').AsCurrency, ffCurrency, 2, langFormat); 

Проблема заключается в том, что она по-прежнему показывает символ валюты. Что я здесь делаю неправильно? Я не думаю, что могу использовать CurrToStrF, потому что мне нужна сетка для экспорта числа в excel, а не в строку. Или, можно ли использовать AsFloat, но иметь десятичные знаки? (100.00)

Answer 1

Doing CurrencyString := ''; будет влияния всего следующее форматирование валют при используя формат по умолчанию строки и, таким образом, должны дисплей всех варианты валюты/поля значений без знака $, в то время как сохраняя свою цифровую природу.

Но когда вы явно формат ваша валюта значение с собственные TFormatSettings langFormat, он имеет никакого эффекта, если вы ранее не делали:

langFormat.CurrencyString := ''; 

Answer 2

Изменение ffCurrency на ffFixed должно избавиться от символа валюты, но не было бы каких-либо сотен разделителей.

// С разделителями

sStrVar: = FormatCurr ('#, ## 0.00', CurrVar);

Answer 3

очень простое решение было бы изменить CurrencyString самостоятельно и поменять его обратно на исходное значение позже.

if fPreferences.WorksheetFormat = 'Numeric' then 
begin 
    CurrencyString := ''; 
    Value := FieldByName('UnitList').AsCurrency; 
end else 
    begin 
    OldCurrStr := CurrencyString; 
    CurrencyString := ''; 
    Value := CurrToStrF(FieldByName('UnitList').AsCurrency, ffCurrency, 2, langFormat); 
    CurrencyString := OldCurrStr; 
    end;