Bits2LStr Function
Converts a Long Bit list to a string of '1' and '0'.

Unit
QESBPCSSystem

Declaration
Function Bits2LStr(const BitList: TESBLongBitList): String32;

Parameters
BitList BitList to process.

Category
Memory Operations

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com