如何将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(),结果返回的字符前没有空格,且长度不固定。
请问正确的方法应该如果写?
例如:
123.01 ---> ' 123.01' (前面有4个空格)
1234.98 ---> ' 1234.98' (前面有3个空格)
123456 ---> ' 123456' (前面有4个空格)
23.012 ---> ' 23.01' (前面有5个空格)
3.015 ---> ' 3.02' (前面有6个空格)我试用FloatToStr(),结果返回的字符前没有空格,且长度不固定。
请问正确的方法应该如果写?
解决方案 »
- 服装行业 颜色、尺码处理方法
- 请[ zxf_feng ]兄弟来帮下忙
- 做一下需求分析:如果你需要一個理財的軟件(只限個人和家庭用戶),你希望有哪些功能?需要做成哪一種類型?
- dbgrid关于自动计算字段的计算--------急
- 在一个版本编写的程序原代码拷到另一个版本上提示错误,该怎么处理?
- 请问在FastReport中如何控制打印的偏移量,请大家进来出出主意,谢谢
- 写控件时遇到的问题
- 对web的发布与测试???
- 在qq用iplocate就可知道对方的ip地址, iplocate在哪儿可以下载,穷鬼问的问题
- 高分求救:TextDataset控件怎么使用
- 谁有新思维超市POS进销存系统的控件,大家一起研究哇。
- MainMenu和TreeView
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;