erstens: wenn du quelltext postest, dann nutze bitte den button "Delphi-Code" hier oben um den Quelltext richtig zu formatieren, damit er schön lesbar ist, danke!
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
inc(KonstNum);
LblVokNum.Caption := IntToStr(vokal);
LblKonstNum.Caption := IntToStr(KonstNum);
end;
end.
So funktioniert es, da waren ein Haufen kleine Fehler drin. Wenn du kompilierst dann wirft dir der Compiler Meldungen aus. Wenn du diese nachverfolgst und einen nach dem anderen behebst, gelangst du auch allein ans Ziel.
Programmieren ist nun mal eine Tätigkeit die Geduld und Aufmerksamkeit abfordert.