Zitat von
userF:
Nun hab ich das so gemacht aber es geht irgendwie trozdem nicht
Delphi-Quellcode:
for i := 1 to Length(Satz) do
begin
if Satz[i] in ['a', 'e', 'i', 'o', 'u'] then
inc(VokNum)
else
inc(KonstNum);
end;
du definierst jedes zeichen außer die Vokale als Konsonanten, aber auch Leerzeichen und Satzzeichen sind zeichen.
sonst finde ich keinen Fehler