Delphi中UInt32二进制字符串转换的整数溢出问题及解决

原代码溢出原因 #

原代码在处理接近UInt32最大值的二进制字符串时触发溢出，核心问题是混合无符号与有符号整数运算的类型转换冲突：

• Result是UInt32类型，但Ord(binaryStr[i]) - Ord('0')的结果为Integer（有符号32位）。
• Delphi在计算表达式Result * 2 + Ord(binaryStr[i]) - Ord('0')时，会将UInt32类型的Result转换为Integer类型参与运算（因操作数存在Integer）。
• 当Result的值超过Integer的最大值（$7FFFFFFF，即2^31-1）时，转换后的Integer会变为负数（例如Result=$80000000转换为Integer是-2147483648），此时执行*2操作会超出Integer的取值范围，触发溢出异常——即便最终结果本应落在UInt32的合法范围内。

修复方案分析 #

方案一：用UInt64中转计算 #

function BinaryStringToUInt32(const binaryStr: AnsiString): UInt32;
var
  i: Integer;
  test: UInt64;
begin
  test := 0;
  // Convert the binary value to an integer
  for i := 1 to Length(binaryStr) do
  begin
    test := test * 2 + Ord(binaryStr[i]) - Ord('0');
  end;
  Result :=  UInt32(test);
end;

• 利用UInt64的超大范围（最大2^64-1）存储中间计算结果，完全避免了混合类型转换的问题，32位二进制数的计算过程不会触及UInt64的边界。
• 最终将UInt64转换为UInt32，只要输入字符串长度不超过32位，结果就会正确映射到UInt32的合法区间。

方案二：位运算实现（更高效） #

function BinaryStringToUInt32(const binaryStr: AnsiString): UInt32;
var
  i: Integer;
begin
  // Ensure input string length does not exceed 32 characters
  if Length(binaryStr) > 32 then
    raise Exception.Create('Input string exceeds 32 characters');

  Result := 0;
  // Convert the binary value to an integer
  for i := 1 to Length(binaryStr) do
  begin
    Result := Result shl 1; // Shift result left by one bit
    if binaryStr[i] = '1' then
      Result := Result or 1; // Set the least significant bit if current bit is '1'
  end;
end;

• 先限制输入长度不超过32位，从根源杜绝超出UInt32范围的计算。
• 用位左移（shl）替代乘法，按位或（or）替代加法，全程基于UInt32的位操作，不存在类型转换问题。位运算本身比算术运算更高效，且每一步操作都严格在UInt32的范围内进行，不会触发溢出。

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