Vokale Zählen

[Noobinator]

also du fügst in deine Form ein edit ein, 2 labels und ein button.

auf den button machst du dann:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var konsonanten,vokale,i:integer;
begin
// beides 0 setzen
konsonanten:=0;
vokale:=0;

for i:=1 to length(edit1.text) do  // jedes Zeichen des satzes durchgehen
begin
if edit1.text[i] in ['a','e','i','o','u'] then
vokale:=vokale+1;  // wenn ein Vokal, dann eins Hochzählen

//konsonanten zählen
if edit1.Text[i] in ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','u','v','w','x','y','z']
then konsonanten:=konsonanten+1;  // wenn kosonant, dann eins hochzählen
end;
label2.caption:=inttostr(konsonanten); // ausgeben
label1.caption:=inttostr(vokale);      // ausgeben
end;

so das war es dann schon.