| Bits2Str Function | 
Unit
QESBPCSSystem
Declaration
Function Bits2Str(const BitList: TESBBitList): String16;
| Parameters | 
| BitList | BitList to process. | 
Category
Memory OperationsImplementation
 
| 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; | 
|  |