AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Wieder mal eaccesviolation

Ein Thema von fox67 · begonnen am 27. Feb 2012 · letzter Beitrag vom 27. Feb 2012
Antwort Antwort
fox67

Registriert seit: 6. Okt 2010
Ort: 72661 Grafenberg
181 Beiträge
 
Turbo Delphi für Win32
 
#1

Wieder mal eaccesviolation

  Alt 27. Feb 2012, 16:54
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
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.195 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Wieder mal eaccesviolation

  Alt 27. Feb 2012, 16:56
test.Create; Wie erzeugt man in Delphi instanzen?
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von Coffeecoder
Coffeecoder

Registriert seit: 27. Apr 2011
242 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: Wieder mal eaccesviolation

  Alt 27. Feb 2012, 16:56
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
test := TTest.Create; // <---
test.Berechne();
test.Start:= false;

end;
Coffeecoder
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#4

AW: Wieder mal eaccesviolation

  Alt 27. Feb 2012, 16:56
Zitat:
test.Create;
->test := TTest.Create; Weiter hab ich nicht geschaut, das sollte es aber schon sein.

[edit] *Grmpf* um Haaresbreite zu spät [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: Wieder mal eaccesviolation

  Alt 27. Feb 2012, 16:57
test := Ttest.Create;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
fox67

Registriert seit: 6. Okt 2010
Ort: 72661 Grafenberg
181 Beiträge
 
Turbo Delphi für Win32
 
#6

AW: Wieder mal eaccesviolation

  Alt 27. Feb 2012, 17:12
Vielen Dank
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz