String und Char

[BlackJack]

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

um das zu umgehen, musst du nur die if-bedingung anpassen:

Delphi-Quellcode:

      if c in ['A','E','I','O','U'] then
        begin
        inc(v);      
        Remove(c, v); // <==
        end;
      if v = 5 then
        begin
          showMessage('Das waren alle Vokale!');
          abort;
        end;

edit: vergesst was ich da gerade geschrieben habe, man müsste natürlich eine variable des types set of char deklarieren, die zuerst alle vokale enthält und woraus dann die vokale entfehrnt werden...