Suche in TStringlist

delphi-n00bz · Beiträge: 17

ich habe folgendes problem, und zwar muss ich informationen aus textdateien filtern und die information die ich brauche steht immer eine reihe unter dem 3. vorkommenden @ in der datei. nur die zeilennummern variieren immer. natürlich lade ich zuerst die textdatei in eine tstringlist, bloss wie kannich dann nach dem dritten @ suchen. indexof und pos geben mir ja leider immer nur das erste gefundene an. für hilfe wäre ich sehr dankbar

mfg

TomT · Beiträge: 116 Suse 9.1 WinXP D6 Pers

Versuch mal folgendes. Du must nur str1 durch die jeweilige Line aus der StringList ersetzen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var i,j:integer;
begin
  str1:='H@al@l@o';

begin
  i:= 1;
  j:= 0;
  while ( (j<3) and (i<=length(str1) ) ) do
  begin
    if str1[i]='@' then j:=i;
    i:=i+1;
  end;
  form1.Caption := inttostr(j);
end;

end;

Viel Erfolg!

_________________
...und da wurde mir klar, dass eine Toolbar keine Kneipe für Heimwerker ist.

Andreas Pfau · Beiträge: 997

Ab Delphi 7 (Prof?) gibt's PosEx(), das müsste helfen. Oder selber 'ne Methode implementieren, die auf dem Code von Pos() basiert.

_________________
Life is a bad adventure, but the graphic is really good!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme