如何将Double,single,integer数值，转换成10位固定长度的字符string

Question

如何将Double,single,integer数值，转换成10位固定长度的字符string如果是小数，只保留2位小数点，如果是整数，不要小数点。说明：我所要转的数值都<1000000.00
例如：
123.01   --->  '    123.01'    (前面有4个空格)
1234.98  --->  '   1234.98'    (前面有3个空格)
123456   --->  '    123456'    (前面有4个空格)
23.012   --->  '     23.01'    (前面有5个空格)
3.015    --->  '      3.02'    (前面有6个空格)我试用FloatToStr()，结果返回的字符前没有空格，且长度不固定。
请问正确的方法应该如果写？

Answer 1

function MyFormat(i:Integer):string;overload;
begin
  result:=Format('%10d',[i]);
end;
function MyFormat(i:Double):string;overload;
begin
  result:=Format('%10.2f',[i]);
end;
function MyFormat(i:Single):string;overload;
begin
  result:=Format('%10.2f',[i]);
end;procedure TForm1.Button1Click(Sender: TObject);
var a:single;
begin
  a:=123.01;
  ShowMessage(MyFormat(a));
end;