Delphi 64位中StrToFloat无法报告无效浮点数，如何实现报错？

这确实是Delphi 10.2.3 64位编译器下StrToFloat的一个让人头疼的坑——核心原因是32位和64位版本底层依赖的Windows转换API行为不一致：32位版本会主动检测浮点数范围并抛出异常，而64位版本依赖的strtod类API在遇到超范围输入时会返回0并设置ERANGE错误，但Delphi的默认实现没有检查这个错误，直接返回了0。而且TArithmeticException.exOverflow只针对算术运算中的溢出，对字符串转换场景无效。

下面是几个可行的解决方案：

• 手动提前校验输入范围
  先解析字符串的指数部分，判断是否超出double类型的有效范围（double的指数范围是-308到+308），如果超出直接抛出异常。示例代码：

  function IsValidFloatInput(const S: string): Boolean;
  var
    expPos: Integer;
    expStr: string;
    expValue: Integer;
  begin
    Result := False;
    expPos := Pos('e', LowerCase(S));
    if expPos = 0 then
    begin
      // 无指数部分，交给StrToFloat处理常规情况
      Result := True;
      Exit;
    end;
    expStr := Copy(S, expPos + 1, Length(S) - expPos);
    if not TryStrToInt(expStr, expValue) then
      Exit;
    // 检查指数是否在double的有效范围内
    Result := (expValue >= -308) and (expValue <= 308);
  end;
  
  // 调用示例
  var
    myFloat: Double;
  begin
    if not IsValidFloatInput('1e99999999') then
      raise EConvertError.Create('浮点数超出有效范围')
    else
      myFloat := StrToFloat('1e99999999');
  end;
  

• 使用更可靠的TFloatHelper.TryParse方法
  Delphi XE7及以上版本提供了Double.TryParse方法，这个方法在32位和64位下行为一致，会正确返回转换是否成功，不会静默返回0。你可以根据返回值手动抛出异常：

  var
    myFloat: Double;
  begin
    if not Double.TryParse('1e99999999', myFloat) then
      raise EConvertError.Create('浮点数无效或超出范围');
  end;
  

  这个方法会自动处理各种边界情况，包括超范围、无效格式等，是最省心的方案。

• 自定义转换函数，手动检查API错误
  如果你不想大面积修改现有代码，可以自己封装一个转换函数，直接调用Windows的_strtod函数并检查错误码：

  function SafeStrToFloat(const S: string): Double;
  var
    p: PChar;
    lastErr: Integer;
  begin
    p := PChar(S);
    // 重置错误码
    SetLastError(0);
    Result := _strtod(p, @p);
    lastErr := GetLastError;
    // 检查是否有溢出，或者输入未完全解析（存在无效字符）
    if (lastErr = ERANGE) or (p^ <> #0) then
      raise EConvertError.Create('浮点数转换失败：超出范围或格式无效');
  end;
  

  这个方案需要注意处理输入中的空格、正负号等细节，但能保证32位和64位下行为一致。

内容的提问来源于stack exchange，提问作者Eric Grange