一个简单的数据类型转换问题 var str:='123.123';如何把str转成一个float 123.123?我用strtofloat 会变成123.12............... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var a:real;begin a:=strtofloat(str); a:=format('%.3f',a);end; 你试试吧,应该可以的 procedure TForm1.Button1Click(Sender: TObject);var str:String;begin str:='123.123'; showmessage(floattostr(strtofloat(str)));end;xp2+D7上 验证通过,结果是 123.123 如果小数点后的精度过高..可能会出现这个情况...但是小数点后三位应该不会吧..难道你用的是real? a:=strtofloat(str); a:=format('%.3f',a); formatfloat('0.000',123.123);-----------------------------------------这样写不错~~ 用gifimage在richedit插入gif后插入的文字显示不了? 请达人帮忙改下代码!谢谢 delphi7下代码中无法录入汉字 请问:哪里能下载 Mapx 控件? 向https, post xml文件方法 fastreport问题:如何在程序中直接打开带密码的fr报表。 APISpy32 怎么用? 改变系统分辨率后 如何让任务栏始终保持在系统的最下方? public 和published的区别? 有偿求助! 请问这段代码错在那里了?老出错。。唉 请问各位大虾Delphi有没有象MSDN那样的学习文档啊?
a:real;
begin
a:=strtofloat(str);
a:=format('%.3f',a);
end;
你试试吧,应该可以的
procedure TForm1.Button1Click(Sender: TObject);
var
str:String;
begin
str:='123.123';
showmessage(floattostr(strtofloat(str)));
end;xp2+D7上 验证通过,结果是 123.123
a:=format('%.3f',a);
-----------------------------------------
这样写不错~~