Delphi中double类型真正实现四舍五入（保留两位）

在彩票行业许多年，这次对于竞彩玩法的计奖，让我很是头疼。Delphi中double类型的四舍五入总是出问题，小数点后1－4，6－9都没有问题，就是.5时总出现不进位的问题。

 

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;

 

真心感谢这位高手，也希望能带给其他需要的人一些帮助。对了，Java也有类似的问题，要注意哟！