Lazarus: Anzahl des Such-Strings im Haupstring zählen

Gast #4808269
Lesenswert?

Hallo Leute,

ich verzweifel gerade etwas. Ich habe einen string und möchte gerne 
zählen, wie oft zb "ABC" in diesem String vorkommt.
Ich habe es mit der Funktion Pos probiert und wollte dann einfach einen 
Zähler a hochsetzen, wenn der "ABC" gefunden wird.
Das habe ich mit einer repeat-until-schliefe aufgestellt, mit 
Abbruchbedingung a=0, also "ABC" nicht mehr gefunden. Aber irgendwie 
klappt das nicht und die Schleife wird unendlich durchlaufen :(

repeat
            a:=pos('ABC',suchstring)  ;
            inc (anzahl);
            Label1.caption:=' ABC: '+ inttostr(anzahl);
until a=0

was mache ich da falsch? Vielen Dank.
Gast #4808280
Lesenswert?

Ich habe keine Ahnung von Pascal, aber suchst du mit
  a:=pos('ABC',suchstring)
nicht einfach immer wieder von vorne? Dann würde die Schleife nur 
abbrechen, wenn 'ABC' gar nicht in suchstring vorkommt.

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren