delphi7FormatFloat四舍五入

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