Einzelnen Beitrag anzeigen

Phillip0405

Registriert seit: 25. Jan 2016
Ort: NRW
24 Beiträge
 
Delphi XE3 Professional
 
#8

AW: Frage: Buchstaben/ Wortzähle mit while

  Alt 27. Jan 2016, 12:04
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;
P.B.
  Mit Zitat antworten Zitat