String und Char

[Thanatos81]

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.