delphi - 如何使用Delphi的AsCurrency显示没有货币符号的货币？

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

在使用默认格式字符串时，执行CurrencyString := '';将影响以下所有货币格式，因此应该>显示所有货币变体/字段值不带$符号，同时保留其数字性质。

但是，当您使用您自己的 TFormatSettings langFormat显式格式化您的货币值时，它不会产生任何效果，除非您之前这样做过:

langFormat.CurrencyString := '';