如何四舍五入? 用strtofloat(aEdit.text)后,转出来的浮点数小数很多,如果用于乘法,小数就更多了,不知有没有办法控制小数位数,我想用四舍五入的方法应该有用,但不知怎么办,请指教? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Format('%.2f',[1.2365]); 就是1.24 var a:int; b:float;b:=strToFloat(aEdit.text);if b>=0 thena:=round(b+0.5)elsea:=round(b-0.5); 1.先uses一下Math单元。2. RoundTo(1234567, 3) =1234000 RoundTo(1.234, -2) =1.23 RoundTo(1.235, -2) =1.24明白了吧, 菜单和树的动作如何关联? 讨论 结构体(Record)的用法 在Delphi7中使用ClientDataSet控件,生成的exe文件必须带上midas.dll? idftp的问题,大虾救命 在SQL Server数据库中进行定位的问题 求自定义公式源码,如果没有我就要被boss炒了 高分求一解决方案!!分不够再加。。。。 如何使dbcombobox中items动态修改的内容保存下来? 为什么不能够同时按下多个键(6-8个)? 请问调用CORBA服务器出现NO_IMPLEMENT是什么原因? 小问题 100相送 用TcpClient,TcpServer怎样收发数据啊
b:float;
b:=strToFloat(aEdit.text);
if b>=0 then
a:=round(b+0.5)
else
a:=round(b-0.5);
2.
RoundTo(1234567, 3) =1234000
RoundTo(1.234, -2) =1.23
RoundTo(1.235, -2) =1.24
明白了吧,