Frage: Buchstaben/ Wortzähle mit while

[Phillip0405]

Hallo,
ich hätte die Frage, wie man es angehen muss, wenn man mit while...do begin ein Programm schreiben soll, damit, wenn in dem Feld Text(woraus die Buchstaben/Worte gezählt werden soll) z. B. "Das ist ein Text" steht, und man in Suche dann z. B. s eingibt, soll in Anzahl die Anzahl aller "s" angezeigt werden. Wie muss man dieses angehen?

Danke schon mal im Voraus!

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