本文整理自网络，侵删。
round函数用的是银行家算法，不好使。
roundTo也不好使。
什么Format呀，
result := int(value * 100 + 0.5) / 100;
全都统统不好用。
后面弄明白原因了，许多时候计算的结果为：17.145，但事实上是17.1449999999等，这时你再四舍五入两位结果就不对，尤其是钱。呵呵
在网上终于猎杀到一个高手的算法，大家分享下：
class function TNewDcFunc.RoundFloat(f:double;i:integer):double;
var
s:string;
ef:extended;
begin
s:='#.'+ StringOfChar('0',i);
ef:=StrToFloat(FloatToStr(f));//防止浮点运算的误差
result:=StrToFloat(FormatFloat(s,ef));
end;
相关阅读 >>
Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码!
Delphi的unicode与gb2312转转换,汉字unicode转gb2312
Delphi windows 编程[20] - 改变菜单项并换行
Delphi xe android/ios 实现图片放大缩小的两种方法
更多相关阅读请进入《Delphi》频道 >>
