Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
za:integer;
begin
za:=0;
s:=edit1.text;
for i=1 to length(s1) do
begin
case s[i] of
'a':inc(za);
'e':inc(za);
'i':inc(za);
'o':inc(za);
'u':inc(za);
edit2.text:= inttostr (za);
end;
oode ist ungetestet, müsste aber so ca. gehen