Frage: Buchstaben/ Wortzähle mit while

[Phillip0405]

Zitat von Zacherl:

Zitat von Phillip0405:

Was einer von euch warum?

Nö, woher auch? Zeig doch mal deinen Code ..

Delphi-Quellcode:

var
a, text, suche:string
b,c, Zähler, Anzahl:interger;
begin
Zähler:=0;
Text:=edit1.text;
Suche:=edit2.text;
b:=Pos(suche,text);
c:=Length(text);
Copy(text, b, c);

while c<3 do begin
Zähler:=Pos(suche,text);
Zähler:=Zähler+1;
end;
Anzahl:=Zähler;
edit3.text:= InToStr(Zähler);

end;