Anzahl der Zeichen im String (ohne Leerzeichen) zählen.

[mkinzler]

Delphi-Quellcode:

For i := 1 to Length( str) do
    if UpperCase(str[i]) in ['A', 'E', 'I', 'O', 'U'] then inc( Vokale);