如何在Delphi上正确格式化浮点数的字符串？

Question

我需要调用Format函数来返回以下字符串:

1.0 -> "1 or 1.0"
1.01 - > "1.01"
1.001 - > "1.001"
1.0000001 -> "1.0000001"

有可能吗？标准格式字符串%0:f仅返回该点后的两位数(例如,"1.01").

Answer 1

使用%g通用格式字符串:

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

begin
  Writeln(Format('%g', [1.0]));
  Writeln(Format('%g', [1.01]));
  Writeln(Format('%g', [1.001]));
  Writeln(Format('%g', [1.0000001]));
end.

产量

1
1.01
1.001
1.0000001