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