Ich hab mal aus spass ein einfaches prorgamm gemacht das alle Vokale erkennt und dann die anzahl ausgibt leider funktioniert es nicht richtig
Code:
procedure TForm1.Button1Click(Sender: TObject);
type Tvokabel=set of char;
var vokabel:Tvokabel;
i,c,anzahl:integer;
a:string;
begin
a:=edit1.Text;
vokabel:=['a','i','o','u','e'];
setlength(a,c);
anzahl:=0;
for i:=0 to high(c) do
begin
if edit1.text[i+1] in vokabel then inc(anzahl)//Hier liegt der fehler
end;
label1.caption:=inttostr(anzahl);
end;
Also es lässt sich starten jedoch wen ich den knopf drücke kommt eine fehlermeldung.