Vokale Zählen

[Matze]

Jetzt mit dem Titel wird alles klar. Hier eine mögliche Lösung:

Delphi-Quellcode:

procedure TForm1.BtnZaehlenClick(Sender: TObject);
var
  i: Integer;
  VokNum, KonstNum: Integer;
  Satz: string;
begin
  VokNum := 0;
  KonstNum := 0;

  // Groß-/Kleinschreibung ignorieren
  Satz := AnsiLowerCase(EdtSatz.Text);

  for i := 1 to Length(Satz) do
  begin
    if Satz[i] in ['a', 'e', 'i', 'o', 'u'] then
      inc(VokNum)
    else
      inc(KonstNum);
  end;

  LblVokNum.Caption := IntToStr(VokNum);
  LblKonstNum.Caption := IntToStr(KonstNum);
end;

Eigentlich sind der Code und die Komponentennamen selbsterklärend.