Delphi 7：获取字符串中的货币格式

Question

如何在delphi中转换：

'1'到'1,00'

或

'1,5'到'1,50'

例如，所有变量都是字符串。

谢谢

Answer 1

您可以使用Format或FormatFloat功能。格式示例（假设'，'是小数点分隔符）是

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(Format('%.2f', [StrToFloat('1,5')]));
end;

Answer 2

您正在寻找我相信的formatFloat功能。

var
  sText : string;
begin
  sText := '1234';
  showMessage(formatFloat('#,###.00', strToFloat(sText)));

-Don。

Answer 3

使用FormatFloat。它是德尔福，有“我”，顺便说一句......