Hallo
Seit kurzem hab ich wieder angefangen mit Delphi zu programmieren und probier zur Zeit hauptsälich eigenen Klassen zu programmieren und so weiter
Bei diesem Program wollte ich auch gleich mal die repeat Schleife ausprobieren
Code:
type
TPunkt = class(TObject)
private
{ Private-Deklarationen }
rRichtung : Integer;
rhoehe : Integer;
rpunkt : TPoint;
rschliessen : Boolean;
// procedure ermmittlehöhe();
public
{ Public-Deklarationen }
procedure Bewegung();
end;
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure onclose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
punkt : TPunkt;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{procedure TPunkt.ermmittlehöhe;
begin
rhoehe := form1.ClientHeight;
Bewegung();
end;}
procedure TPunkt.Bewegung();
begin
repeat
case rRichtung of
1:
begin
rpunkt.Y:= rpunkt.Y +1;
if rpunkt.Y = rhoehe then rRichtung := 2;
end;
2: begin
rpunkt.Y:= rpunkt.Y -1;
if rpunkt.Y = 0 then rRichtung := 1;
end;
end;
until rschliessen = true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
punkt := TPunkt.Create;
//punkt.ermmittlehöhe;
punkt.rpunkt.Y:= 0;
punkt.rRichtung:=1;
punkt.rhoehe:=form1.ClientHeight;
punkt.rschliessen := false;
punkt.Bewegung;
end;
procedure TForm1.onclose(Sender: TObject; var Action: TCloseAction);
begin
punkt.Free;
punkt.rschliessen := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage(inttostr(punkt.rpunkt.Y));
end;
end.
Wenn ich allerdings compelieren wil erscheint das Fenster meines Programmes nicht. Warum kann ich mir denken doch wie kann man des verhindern. (Das Programm ist noch nicht fertig ich wollte es nur mal testen
)