Vergleich ???

[Klaus01]

Zitat von fuknersascha:

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

  FreeAndNil(Liste); //<---------

end;

Guten Morgen Sascha,

alternativ kannst Du noch die Methode IndexOf der Stringliste verwenden.
IndexOf liefert -1 zurück wenn der String in der Stringliste nicht vorhanden ist,
ansonsten wird die Zeilennummer zurückgegeben.

Was wichtiger ist, Du solltest die Liste am Ende auch der Routine auch wieder freigeben.

Grüße
Klaus