Bits2LStr Function |
Unit
QESBPCSSystem
Declaration
Function Bits2LStr(const BitList: TESBLongBitList): String32;
Parameters |
BitList | BitList to process. |
Category
Memory OperationsImplementation
function Bits2LStr (const BitList: TESBLongBitList): String32; var I: Integer; begin SetLength (Result, 32); for I := 0 to 31 do if BitIsSet (BitList, I) then Result [I + 1] := '1' else Result [I + 1] := '0'; End; |
|