String und Char

[Catbytes]

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