Bestimmtes Wort in einem String zählen

[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;