Nun hab ich das so gemacht aber es geht irgendwie trozdem nicht
[delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
eingabe: TEdit;
vokale: TLabel;
Label2: TLabel;
ausgabevokale: TEdit;
ausgabekonsonanten: TEdit;
zaehlen: TButton;
schliessen: TButton;
procedure zaehlenClick(Sender: TObject);
procedure schliessenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
var satz:string;
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;