Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Vergleich ??? (https://www.delphipraxis.net/98788-vergleich.html)

Klaus01 3. Sep 2007 09:47

Re: Vergleich ???
 
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 5. Sep 2007 11:10

Re: Vergleich ???
 
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 5. Sep 2007 11:36

Re: Vergleich ???
 
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 (Delphi-Referenz durchsuchenCopy), wenn das für dich ausreichen würde. Also beispielsweise immer nur TCP 127.0.0.1:1028 .

SaFu 5. Sep 2007 23:42

Re: Vergleich ???
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:15 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz