Edit vokale zählen

[Bentissimo]

Oder ganz allgemein:

Delphi-Quellcode:

function NumberOfVocals(AText: String): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(AText) do
    if UpCase(AText[I]) in ['A', 'E', 'I', 'O', 'U'] then
      Inc(Result);
end;