Vokale Zählen

[userF]

So sollte es korrekt aussehen?

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    EdtSatz: TEdit; 
    LblVokNum: TLabel; 
    LblKonstNum: TLabel; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
  vokal, KonstNum: Integer; 
  Satz: String; 
begin 
  vokal    := 0; 
  KonstNum := 0; 

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

  vokal     :=0; 
  KonstNum  :=0; 
  for i:=1 to length(satz) do 
    if (satz[i] in ['a', 'e', 'i', 'u', 'o']) then 
      inc(vokal) 
    else 
if satz[i] in ['a'..'z'] then 
      inc(KonstNum);

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

end.