Vokale Zählen

[semo]

*räusper*

wir hatten dir doch schon genügend fertige beispiele gepostet.

Delphi-Quellcode:

procedure TForm1.eingabeChange(Sender: TObject);
begin
satz:=eingabe.text
end;

--> dies ist überflüssig, da du ja den satz nur in deiner procedure TForm1.zaehlenClick(Sender: TObject); benötigst.

auch lässt du dir norgendwo ein ergebnis anzeigen, was du doch vorhin schon drin hattest?

es gibt auch due möglichkeit schrittweise durch das programm zu steppen (debugging genannt),
setze dazu einen breakpoint (durch drücken von F5) in der Zeile "begin" der procedure:

Delphi-Quellcode:

procedure TForm1.zaehlenClick(Sender: TObject);
begin
    vokal:=0;
    konsonant:=0;
    for i:=1 to length(satz) do
      if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
         or (satz[i]='u') or (satz[i]='o') then
        vokal:=1
      else
       konsonant:=1;
end;

danach kannst du mit F8 Zeilenweise durch da sProgramm steppen und dir die Inhalte der Variablen anzeigen lassen.