The following example shows how to convert an integer to a "BinaryString" of zeros and ones by using the "shl" (shift bits left) macro to isolate the bits, and the "and" operator to test the bits.

Example:

function LongIntToBinString(BinValue : longint) : string; var i : integer; s : string; begin s := ''; for i := 3 downto 0 do if (BinValue and ( shl i)) <> 0 then s := s + ' ' else s := s + '0'; Result := s; end;

procedure TForm .Button Click(Sender: TObject); begin Memo .Lines.Add(LongIntToBinString($FF)); end;

7/ 6/98 4:3 :28 PM