Wieder mal eaccesviolation

[fox67]

Hallo seit lannger Zeit hab ich wieder mal angefangen mit delphi zu programmieren. Zu ein üben hab ich mir ein Programm mit einer eigenen Klasse geschrieben. Ziel des Programmes ist es ein Smylie der aus Shapes besteht mit den Pfeiltasten zu bewgen.

Code:

unit Unit1;

interface

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

type
  Ttest = class(TObject)
  private
  Auge1top : Integer;
  Auge1left : Integer;
  Auge2top : Integer;
  Auge2left : Integer;
  //Nasetop : Integer;
  //Naseleft : Integer;
  //Mundtop : Integer;
  //Mundleft : Integer;
  Start : Boolean;
  procedure Berechne();

  public

 end;

  TForm1 = class(TForm)
    Shape1: TShape;
    Auge2: TShape;
    Auge1: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure OnClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure OnKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen }
    test : Ttest;
  public
    { Public-Deklarationen }
  end;



var
  Form1: TForm1;
  Test : Ttest;
implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
test.Create;
test.Berechne();
test.Start:= false;

end;

procedure TForm1.OnClose(Sender: TObject; var Action: TCloseAction);
begin
Test.Free;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Auge1.Top := Shape1.Top + Test.Auge1top;
Auge1.Left := Shape1.Left - Test.Auge1left;
Auge2.Top := Shape1.Top + Test.Auge2top;
Auge2.Left := Shape1.Left + Test.Auge2left;
end;

procedure TForm1.OnKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if test.Start=true then
begin
if key = VK_UP then
begin
shape1.Top := shape1.Top - 16;
end;
if key = VK_DOWN then
begin
shape1.Top := shape1.Top + 16;
end;
if key = VK_LEFT then
begin
shape1.Left := shape1.Left - 16;
end;
if key = VK_RIGHT then
begin
shape1.Left := shape1.Left +16;
end;
end;
end;
procedure TTest.Berechne();
begin
Auge1top := Form1.Auge1.Top - Form1.Shape1.Top;
Auge1left := Form1.Shape1.Left- Form1.Auge1.Left;
Auge2top := Form1.Auge2.Top - Form1.Shape1.Top;
Auge2left := Form1.Auge2.Left - Form1.Shape1.Left;
form1.Timer1.Enabled := true;
start :=true;
end;
end.

Beim Starten kommt jedesmahl der Fehler mit eaccesviolation. Ich weiß allerdings nicht warum.
Gruß Arni

[Bernhard Geyer]

Delphi-Quellcode:

test.Create;

Wie erzeugt man in Delphi instanzen?

[Coffeecoder]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
test := TTest.Create; // <---
test.Berechne();
test.Start:= false;

end;

[DeddyH]

Zitat:

Delphi-Quellcode:

test.Create;

->

Delphi-Quellcode:

test := TTest.Create;

Weiter hab ich nicht geschaut, das sollte es aber schon sein.

[edit] *Grmpf* um Haaresbreite zu spät :? [/edit]

[Bummi]

Delphi-Quellcode:

test := Ttest.Create;

[fox67]

Vielen Dank :-D