求format用法。谢谢

Question

我想把数字字符串
比如12->12.00
123.1-->123.10
123.10-->123.10
请问要怎么实现！！
谢谢！！

Answer 1

设 数字字符串为 x
formatfloat('0.00',x)formatfloat('0.00',12)=12.00

Answer 2

首部  function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的字符形式
说明  这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解
"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型
Format('x=%d', [12]); //'x=12' //最普通
Format('x=%3d', [12]); //'x= 12' //指定宽度
Format('x=%f', [12.0]); //'x=12.00' //浮点数
Format('x=%.3f', [12.0]); //'x=12.000' //指定小数
Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置
Format('x=%.5d', [12]); //'x=00012' //前面补充0
Format('x=%.5x', [12]); //'x=0000C' //十六进制
Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引
Format('x=%p', [nil]); //'x=00000000' //指针
Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法
Format('x=%%', []); //'x=%' //得到"%"
S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串
参考  proceduer SysUtils.FmtStr
例子  Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0]);

Answer 3

对头，就是用FormatFloat函数，楼主，给点分吧，嘿嘿！

Answer 4

我认为xiangwangz(<*敝屣荣华 浮云生死 此身何惧*>) 的全面建议楼主采纳吧

Answer 5

fltExp:Single;format('%3.2n',[fltExp]);

Answer 6

用 formatfloat('0.00',12) 确实可以！