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!