delphi - 如何格式化 MinExtended80Denormal？

Question

单元System.Math定义常量

MinExtended80Denormal

我可以使用给定的 rtl 函数将此数字转换为字符串吗？

我试过了

FormatFloat('#.##############E+####', System.math.MinExtended80Denormal)

结果

000000000000000E+00000

我也尝试了更大的非规范化值，但内置格式化函数似乎不支持此类值(其中指数为零)。

Answer 1

使用系统内置的打印功能，它可以工作:

uses
  Math;
var
  s:String;
begin
  Str(MinExtended80Denormal,s);
  WriteLn(s);
  WriteLn(MinExtended80Denormal);
  Str(MinExtended80Denormal:26:-1,s);
  WriteLn(s);
  WriteLn(MinExtended80Denormal:26:-1);
end.

输出:

3.64519953188247E-4951
3.64519953188247E-4951
3.64519953188247460E-4951
3.64519953188247460E-4951

<小时/>

常量 MinExtended80Denormal 定义为:3.64519953188247460253e-4951因此，最好的结果给出除最后三位小数之外的所有数字。

<小时/>

我还尝试了WriteLn(MinExtended80Denormal.ToString)，但结果是0。