delphi7 FormatFloat 四舍五入时,某些情况下不进一,测试代码如下 procedure TForm1.FormShow(Sender: TObject); var a:double; begin a:=16.685; showmessage(formatfloat('0.00',a)); application.Terminate; end; 解决方法:把下载到的文件覆盖到**\Borland\Delphi7\Lib下