16,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wofan 2004-12-20
- 打赏
- 举报
已经搞定
涩色滴人 2004-12-20
- 打赏
- 举报
ShowMessage(FormatFloat('0.00',133.5));
为什么总是不用Delphi自己的函数呢？
为什么总是不用Delphi自己的函数呢？
gxgyj 2004-12-20
- 打赏
- 举报
edit2.text:=formatcurr('0,00',strtofloat(edit1.text));
zhangheaaa 2004-12-20
- 打赏
- 举报
很简单，首先转换成字符串，然后利用pos()函数，找到小数点的位置，
如果没有找到小数点，则在后面加上'.00',
找到了再检查后面有几个字符，不足2个，补充一个。
如果没有找到小数点，则在后面加上'.00',
找到了再检查后面有几个字符，不足2个，补充一个。
