Vokale Zählen

[Klaus01]

Delphi-Quellcode:

implementation
var satz:string;
    i:integer;
    buchstabe:integer;
    vokal:Integer;
    konsonant:Integer;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
  begin
    close;
  end;
procedure TForm1.zaehlenClick(Sender: TObject);
  begin
    vokal:=0;
    konsonant:=0;
    for i:=1 to length(satz) do
      if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
         or (satz[i]='u') or (satz[i]='o') then
        inc(vokal;
      else 
       inc(konsonant);
end;

Andere Lösungsansätze findest Du auch in Deinem ersten Thread:
http://www.delphipraxis.net/internal...ghlight=vokale

Grüße
Klaus