delphi - 如何将 int 转换为货币？

Question

我正在使用Delphi 2009，我问了我的问题，但我得到的答案已经过时了，因为它无法识别Delphi2009中的StrtoFloat。

我问如何将整数转换为“1,900,000”，例如“1900000”？

Answer 1

您还可以使用格式命令。由于格式需要实数，因此向整数添加 0.0 可有效地将其转换为扩展类型。

Result := Format('%.0m',[intValue + 0.0]));

这可以正确处理负数并添加用户区域设置的货币符号。如果不需要货币符号，则设置CurrencyString := '';调用前，调用后恢复。

SavedCurrency := CurrencyString;
try
  CurrencyString := '';
  Result := Format('%.0m',[intValue + 0.0]));
finally
  CurrencyString := SavedCurrency;
end;

要强制使用逗号，只需设置ThousandSeparator := ',';

CurrencyString := '!';
ThousandSeparator := '*';
Result := Format('%.0m',[-1900000.0]);  

// Returns (!1*900*000) in my locale.

掩码中的“句点”决定了 float 的小数部分的显示方式。由于我后来传递了 0，它告诉 format 命令不要包含任何小数部分。 Format('%.3m',[4.0]) 的格式命令将返回 $4.000。