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

Unit
QESBPCSSystem

Declaration
Function Bits2Str(const BitList: TESBBitList): String16;

Parameters
BitList BitList to process.

Category
Memory Operations

Implementation

function Bits2Str (const BitList: TESBBitList): String16;
var
     I: Integer;
begin
     SetLength (Result, 16);
     for I := 0 to 15 do
          if BitIsSet (BitList, I) then
               Result [I + 1] := '1'
          else
               Result [I + 1] := '0';
End;


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