Frage: Buchstaben/ Wortzähle mit while

[CCRDude]

Durchiterieren hattest Du ja schon in der letzten Hausaufgabe, jetzt musst Du halt nur inkrementieren statt edieren

[Phillip0405]

Wie geht

Zitat von CCRDude:

... inkrementieren ...

?

[Jumpy]

Inkrementieren meint Hochzählen. Sprich du hast eine Zählvariable. Diese setzt du zunächst auf 0. Dann gehst du mit einer Schleife alle Buchstaben/Zeichen deines Textes durch, immer wenn du das gesuchte Zeichen findest erhöhst du die Zählvariable um 1.

Code:

Var Zähler:integer;
Zähler:=0
Schleife
Wenn Text an Stelle = Suchbuchstabe dann
  Zähler:=Zähler+1;

Statt Zähler:=Zähler+1; kann man auch Inc(Zähler) schreiben. Das ist eine Delphi-Hilfsprozedur um eine variable zu inkrementieren/hochzuzählen.

[Phillip0405]

Danke!

[Phillip0405]

Bei mir wird nun jetzt bei Anzahl(der gesuchten Buchstaben) immer 0.
Was einer von euch warum?

[Zacherl]

Zitat von Phillip0405:

Was einer von euch warum?

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

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