unit zaehlen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
zaehlen: TButton;
eingabe: TEdit;
vokalelabel: TLabel;
konsonantenlabel: TLabel;
ausgabevokale: TEdit;
ausgabekonsonanten: TEdit;
schliessen: TButton;
procedure zaehlenClick(Sender: TObject);
procedure eingabeChange(Sender: TObject);
procedure schliessenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
var i:integer;
satz:
string;
vokal:integer;
konsonant:integer;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.eingabeChange(Sender: TObject);
begin
satz:=eingabe.text
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
vokal:=1
else
konsonant:=1;
end;
end.