如何使用Delphi的ascurrency来显示没有货币符号的货币?

做 CurrencyString := ''; 将 影响以下所有格式 当 使用默认格式 字符串,因此应该 显示 所有货币变量/字段值 没有$符号 ,同时 保留其数字性质 .

但是当你 明确地 货币值格式 您自己的t格式设置 语言格式,它有 没有效果,除非你以前做过 :

langFormat.CurrencyString := '';

将ffcurrency更改为fffixed应该去掉货币符号,但不会有任何数百个分隔符。

//带分隔符

sstrvar:=formatcurr(',0.00',currvar);

一个非常简单的解决方案是自己更改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;