Delphi 二进制位类转换成无符号整型

  • 函数类型: 自定义函数

  • 函数说明:

二进制位类转换成无符号整型


  • 代码如下:



 function BitsToInteger(const ABits: TBits): UInt32;
var
  I: Integer;
begin
  Result := 0;
  for I := 0 to ABits.Size - 1 do
    Result := Result or (UInt32(ABits[I].ToInteger) shl I) // 左移补码
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678