Delphi中Single类型FloatToStr转字符串问题及无自定义函数解决方法

Delphi代码示例 #

var
    s: Single;
    d: Double;
begin
    d := 0.99;
    s := 0.99;

    ShowMessage(FloatToStr(d) + #13 + FloatToStr(s));
end;

运行结果 #

0,99
0,990000009536743

问题背景 #

Delphi从WSDL生成SOAP对象时，会用Single类型对应WSDL中的float类型，自动生成的代码仅调用标准FloatToStr函数将值转为XML文本，导致Single类型转字符串出现精度冗余。目前无法修改自动生成的代码，需要实现Single类型转字符串的正确转换，且不改动自动生成的代码。

利用Delphi的函数重载机制，实现针对Single类型的FloatToStr重载函数，让自动生成的代码优先调用我们的自定义实现：

1. 创建一个全局单元（例如SingleStrFix.pas），实现重载函数：

unit SingleStrFix;

interface

uses
  SysUtils;

function FloatToStr(Value: Single): string; overload;

implementation

function FloatToStr(Value: Single): string;
begin
  // 方案1：转为Double后调用标准转换，消除冗余精度
  Result := SysUtils.FloatToStr(Double(Value));

  // 方案2：按需指定小数位数，更灵活
  // Result := Format('%.2f', [Value]);

  // 方案3：用FloatToStrF精细控制格式
  // Result := FloatToStrF(Value, ffGeneral, 10, 2);
end;

end.

2. 将该单元添加到项目中，并且确保它在SysUtils之后、自动生成的SOAP单元之前被引用。这样当自动生成的代码调用FloatToStr处理Single类型值时，会优先匹配我们的重载版本，而非SysUtils中的通用版本。

注意事项 #

• 若项目中已有其他FloatToStr重载，需确保参数类型匹配无冲突。
• 可根据业务需求调整转换逻辑：比如固定小数位数、使用特定格式等，避免不必要的精度输出。

内容的提问来源于stack exchange，提问作者Dżyszla