So, wir haben heute in der Schule die Lösung bekommen, mit Case haben wir vorher aber auch nicht gearbeitet, so sieht mein Text jetzt aus:
Delphi-Quellcode:
procedure TForm1.EntvokalisierenClick(Sender: TObject);
var Text :String ;
i :Integer ;
begin
Text := Normaltext.Text ;
i := 1 ;
While i <= length(Text) Do
Begin
Case Text[i] of
'A','E','I','O','U','a','e','i','o','u' :
Begin
Delete (Text, i, 1) ;
i := i - 1 ;
end;
end;
i := i + 1 ;
AusgabeText.Text := Text;
end;
end;
end.
Ich musste ein bisschen selbst dazu schreiben und langsam wird es verständlicher mit Delphi umzugehen...