*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.