Delphi – 如何使用前导零格式化实数？

我需要在小数点之前的整数部分中使用前导零格式化实数.我知道如何使用整数实现这一点,但实际的语法让我感到厌烦.

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

这给了SNumber =’1.234′,但我想要’01 .234′.数字始终为0..99.999

使用 SysUtils.FormatFloat：

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

将获得01.234

六个占位符和一个前导零意味着添加前导零.