The following example shows how to convert a "BinaryString" to a long integer by using the shl (shift bits left) macro.

Example:

function BinStringToLongInt(BinString : string) : longint; var i : integer; Num : longint; begin Num := 0; for i := to length(BinString) do if BinString[i] = ' ' then Num := (Num shl ) + else Num := (Num shl ); Result := Num; end;

procedure TForm .Button Click(Sender: TObject); begin Memo .Lines.Add(IntToStr(BinStringToLongInt(' '))); end;

7/ 6/98 4:3 :28 PM