Bestimmtes Wort in einem String zählen

[Taralos]

Hallo,
ist es möglich eine bestimmt Wortgruppe in einem String zu zählen?

Also z.b. Wie oft kommt a im folgenden Wort vor?
Dann gebe ich Karawane ein und als Rückgabewert erhalte ich 3, weil das a 3mal vorkommt.

Ist sowas möglich?

[Stanlay Hanks]

Delphi-Quellcode:

var i,a : Integer;
begin
For i:= 0 to Length(Edit1.Text) -1 do begin
 IF Edit1.Text[i] = 'a' //Sucht nach 'a'
 THEN a := a+1;
end;
ShowMessage('In diesem Text kommt der Buchstabe a '+
            IntToStr(a)+' mal vor');
end;

[Taralos]

Vielen Dank für deine Hilfe!!
Das hat wunderbar geklappt

[RomanK]

Hoi Stanlay,
so wird der Text aber nicht ganz durchsucht, ein a am Ende wird unterschlagen.
Edit1.Text[1] ist die erste Stelle und Edit1.Text[Length(Edit1.Text)] die letzte:

Delphi-Quellcode:

var i,a : Integer;
begin
For i:= 1 to Length(Edit1.Text) do begin
IF Edit1.Text[i] = 'a' //Sucht nach 'a'
THEN a := a+1;
end;
ShowMessage('In diesem Text kommt der Buchstabe a '+
            IntToStr(a)+' mal vor');
end;

So tut es richtig!

[Stanlay Hanks]

Hallo FR. Ich unterwerfe mich in Demut. Das Problem hab ich schon immer. Ich mach das irgendwie immer falsch. Ich hab da immer so im Gedächtnis, dass der Textindex nullbasiert ist. Danke für die Korrektur!
man liest sich, Stanlay