Delphi中double類型真正實現四捨五入（保留兩位）

delphi 中的round採用的是「四舍、六入、五湊偶」，spa 要改爲四捨五入，可用下面方法： .net function RoundFloat(f:double;i:integer):double; var   s:string;   ef:extended; begin   s:='#.'+ StringOfChar('0',i);   ef:=StrToFloat(FloatToStr(

>>阅读原文<<