Vergleich ???

[SaFu]

Nur nochmal ne Frage ist das so richtig

Delphi-Quellcode:

 procedure TForm1.Button4Click(Sender: TObject);
Var pt: TPoint;
    Liste: TStringList;
begin
 Liste := TStringList.Create;
 getConnectionList(Liste);
  begin
   if Pos('  TCP    127.0.0.1:1028         127.0.0.1:18350        HERGESTELLT', Liste.Text) > 0 then
    begin
     Label3.Caption:='Ja';
    end
    else
    begin
     pt:= Point(Width + 300, Top + 100);
     Mouse.CursorPos := ClientToScreen(pt)
    end;
  end;
end;