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

delphi 中的round采用的是“四舍、六入、五凑偶”，

要改成四舍五入，可用下面方法：


function 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;