Vergleich ???

[Klaus01]

Zitat:

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

[SaFu]

hi

hab doch nochmal ein Problem damit

Ich habe jetzt festgestellt, das der String

Delphi-Quellcode:

if Pos('  TCP    127.0.0.1:1028         127.0.0.1:18350        HERGESTELLT', Liste.Text)

nicht immer gleich ist.

und zwar ändert sich bei jedem erneuten verbinden die letzte zahl um eins von

Delphi-Quellcode:

 127.0.0.1:18350 1 mal verbinden
 127.0.0.1:18351 2 mal verbinden
 127.0.0.1:18352 3 mal verbinden
 127.0.0.1:18353 4 mal verbinden

kann man das jetzt irgendwie so programmieren das man z.b irgendwie ein * als Platzhalter einsetzt

Gruss und danke schonmal sascha

[Matze]

Hi,

das ginge beispielsweise mit regulären Ausdrücken, doch da muss man sich natürlich ein klein wenig einarbeiten, je nach Komplexität. Es gibt dafür eine Unit. Den Link dazu findest du über die Suche.
Du könntest allerdings auch nur die ersten x Zeichen überprüfen (Copy), wenn das für dich ausreichen würde. Also beispielsweise immer nur TCP 127.0.0.1:1028 .

[SaFu]

Ja Danke das ist mir auch gerade aufgefallen

das geht mit TCP 127.0.0.1:1028 dem string

Danke euch nochmal für die ganze hilfe