delphi7 FormatFloat 四舍五入

最新推荐文章于 2025-03-25 16:57:22 发布

yz304zhang

最新推荐文章于 2025-03-25 16:57:22 发布

阅读量3.3k

点赞数 1

本文链接：https://blog.youkuaiyun.com/yz304zhang/article/details/72730691

版权

本文介绍了在使用Delphi7时遇到的FormatFloat函数在四舍五入时可能出现的不准确问题。通过测试代码展示了当数据类型为Extended时，即使转换为字符串再转回，仍有可能出现四舍五入不正确的情况。解决方案是修改SysUtils.pas源代码，增加将Value转换为字符串再转回的步骤，然后分享了修正后的SysUtils.dcu文件下载链接，供开发者覆盖原有库文件以解决问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

相信delphi7开发人员也遇到过这个问题FormatFloat 四舍五入的时候该进一的时候没进一,测试代码如下:

procedure TForm1.FormShow(Sender: TObject);
var
a:double;
begin
a:=16.685;
showmessage(formatfloat('0.00',a));
application.Terminate;
end;

结果是16.68.

FormatFloat源代码如下

function FormatFloat(const Format: string; Value: Extended): string;
var
Buffer: array[0..255] of Char;
begin
Value:=StrToFloat(FloatToStr(Value));
if Length(Format) > SizeOf(Buffer) - 32 then ConvertError(@SFormatTooLong);
SetString(Result, Buffer, FloatToTextFmt(Buffer, Value, fvExtended,
PChar(Format)));
end;

很明显如果数据类型是extende