delphi7 FormatFloat 四舍五入

最新推荐文章于 2022-08-12 10:32:39 发布

yz304zhang

最新推荐文章于 2022-08-12 10:32:39 发布

阅读量3.3k

点赞数 1

CC 4.0 BY-SA版权

本文链接：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;

很明显如果数据类型是extended的话就没问题,即使是这样,我在一个极端的情况下

var

a:Eetended;

begin

a:=clientdataset.fieldbyname('aa').value;

showmessage(formatfloat('0.00',a));

end;

还是出现不进一的情况,最后狠心改了SysUtils.pas.

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;

问题解决了,最后把SysUtils.dcu共享一下

http://download.youkuaiyun.com/detail/yz304zhang/9852175

把SysUtils.dcu覆盖到Borland\Delphi7\Lib目录下就可以了