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; |
|