Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Stringliste nach Teilstring an fester Position durchsuchen (https://www.delphipraxis.net/84626-stringliste-nach-teilstring-fester-position-durchsuchen.html)

hirnstroem 19. Jan 2007 07:57


Stringliste nach Teilstring an fester Position durchsuchen
 
'loha Folks,

ich würde gerne eine Stringliste nach einem Teilstring durchsuchen, welcher an einer fixen Position ist.

Also ich habe z.B. die folgenden Einträge in der Stringliste:

T02E0000484664121850BE01C7
T02E0000484664121850BE01C7
T02E4080084747180F258001B3
T02E000046500000100040
T02E4080084940010203040506
T02E0000480CEF08F01200FFFF
T02E4080084909010203040506

Nun möchte ich z.B. die Liste auf das vorkommen von '64' an der Position 10 durchsuchen. Wie geht dies am besten?

Muss ich nun jedesmal wenn ich einen Teilstring suche, jeden einzelnen Listeneintrag mit der funktion Pos überprüfen oder ginge dies einfacher?

Grüsse
hirnstroem

Klaus01 19. Jan 2007 08:10

Re: Stringliste nach Teilstring an fester Position durchsuch
 
Guten Morgen,

jede Zeile durchsuchen wirst Du wohl müssen.
Mit pos suchen nicht, denn Du weißt ja, das du auf Position 10 eine 6 und auf
Position 11 eine 4 erwartest.

Delphi-Quellcode:
if '64' = copy('deinString',10,2) then
  ....
else
  ...
Grüße
Klaus

sh17 19. Jan 2007 08:43

Re: Stringliste nach Teilstring an fester Position durchsuch
 
Was ist den gegen pos einzuwenden?

Delphi-Quellcode:
for i := 0 to list.count-1 do
if Pos('64',list[i]) = 10 then
...
else
...

sh17 19. Jan 2007 08:44

Re: Stringliste nach Teilstring an fester Position durchsuch
 
Zitat:

Zitat von sh17
Was ist den gegen pos einzuwenden?

ich weiß die Antwort selbst, 64 kann ja auch vor Position 10 auftauchen. :wall:


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:24 Uhr.

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