Zitat von
Catbytes:
Das Problem ist zwar schon gelöst, aber Dein Code wird auch sagen "Das waren alle Vokale!", wenn ich
s := 'AAAAAAAAAAAAAAAAAA';
tippe
Autsch! Nimmt mal jemand das Brett von meinem Kopf, bitte?
Hatte es erst so:
Delphi-Quellcode:
procedure test;
var i : Integer;
c : Char;
s : string;
erraten : array[0..4] of Boolean;
begin
s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
for i := 0 to 4
do erraten[i] := false;
for i := 1 to length(s) do
begin
c := uppercase(s)[i];
case c of
'A' : erraten[0] := true;
'E' : erraten[1] := true;
'I' : erraten[2] := true;
'O' : erraten[3] := true;
'U' : erraten[4] := true;
end;
if erraten[0] and erraten[1] and erraten[2] and erraten[3] and erraten[4] then
begin
showMessage('Das waren alle Vokale!');
abort;
end;
end;
end;
Aber so hab ich wieder was dazu gelernt:
remove 
Außerdem hab ich mal ein uppercase um den string gemacht, da Groß-/Kleinschreibung ja wahrscheinlich irrelevant sein soll.