Delphi - 如何格式化带前导零的实数?

Delphi - how do you format a real number with leading zeros?

我需要在小数点前的整数部分用前导零格式化一个实数。我知道如何用整数实现这一点,但我不明白实数的语法。

Number  := 1.234 ;
SNumber := Format ('%2.3f', [Number]) ;

这给出 SNumber = ' 1.234' 但我想要 '01.234'Number 总是 0..99.999

您想要的字符串的宽度是 6 而不是 2。此外,您希望将填充的空格替换为“0”。

SNumber := StringReplace(Format('%6.3f', [Number]), ' ', '0', [rfReplaceAll]) ;

使用SysUtils.FormatFloat:

SNumber := FormatFloat('0#.###',Number); 

会得到01.234

六个占位符和一个前导零表示添加前导零。