Zitat:
Das Hochzählen von i gehört aber mit in die While-Schleife, oder nicht?
Ist mit drinnen, genau wie die Ausgabe, das
end gehört zum case
Delphi-Quellcode:
i := 1;
while i <= length(Text) do
case Text[i] of
'A','E','I','O','U','a','e','i','o','u' : Delete(Text, i, 1);
else inc(i); // i := i + 1;
end;