• 函数类型：　自定义函数

• 函数说明：

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

• 代码如下：

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;

• 用法示例：

无　

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