Zitat von
Thanatos81:
Habs jetzt mal Testweise mit nem einfachen String gemacht und nicht mit ner TStringList, aber das hier müsste auch für ne TStringList passen:
Delphi-Quellcode:
procedure test;
var i,v : Integer;
c : Char;
s : string;
erraten : array[0..4] of Boolean;
begin
s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
v := 0; //Anzahl Vokale
for i := 1 to length(s) do
begin
c := s[i];
if c in ['A','E','I','O','U']
then inc(v);
if v = 5 then
begin
showMessage('Das waren alle Vokale!');
abort;
end;
end;
end;
Vorteil: Aufgrund er Überprüfung mit length(s) passiert nichts, wenn der String leer ist. for i := 1, weil im String das erste Element 1 ist, anders als bei anderen Typen.
Das Problem ist zwar schon gelöst, aber Dein Code wird auch sagen "Das waren alle Vokale!", wenn ich
s := 'AAAAAAAAAAAAAAAAAA';
tippe
