Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Prism Access Violation - Was tun? (https://www.delphipraxis.net/145746-access-violation-tun.html)

Ceam 7. Jan 2010 15:51


Access Violation - Was tun?
 
Ich habe vor kurzem einen alten ct-Artikel gefunden in dem es darum ging, wie das menschliche Herz funktioniert und wie man das in einem Programm simulieren kann. Ich dachte mir das versuche ich einfach mal. Jetzt bin ich praktisch fertig mit dem Programm, bekomme jedoch eine Zugriffsverletzung gemeldet, wenn ich den Constructor für meine selbsterstellte Klasse TZelle aufrufe.
Delphi-Quellcode:
type

  TZelle = class
            v,x,y:Byte;
            u:Boolean;
            constructor Create(x1,y1:Byte);
           end;

  THerz = Array[1..255,1..255]of TZelle;
nun wird folgendermaßen der Constructor aufgerufen:

Delphi-Quellcode:
for k:=1 to 255 do
  for n:=1 to 255 do
   begin
    Herz[k,n].Create(k,n);
   end;
Der Constructor selbst sieht dann so aus:

Delphi-Quellcode:

constructor TZelle.Create(x1,y1:Byte);
begin
 x:=x1;
 y:=y1;
 v:=0;
 u:=false;
end;
An der Stelle, an der x verändert wird, erscheint dann die allseits bekannte Fehlermeldung (EAccessviolation etc.etc.).
Ich arbeite derzeit mit Borland Delphi7.
Ich hoffe ich habe alle nötigen Infos gepostet, damit ihr mir jetzt sagen könnt wo mein Fehler liegt :)

Danke schonmal im Vorraus für jede Hilfe.

mkinzler 7. Jan 2010 15:56

Re: Access Violation - Was tun?
 
Delphi-Quellcode:
Herz[k,n] := TZelle.Create(k,n);

Ceam 7. Jan 2010 16:06

Re: Access Violation - Was tun?
 
ok vielen Dank. Das hat funktioniert (natürlich) :dp:

implementation 7. Jan 2010 18:11

Re: Access Violation - Was tun?
 
Zitat:

Zitat von Ceam
Delphi-Quellcode:

constructor TZelle.Create(x1,y1:Byte);
begin
 x:=x1;
 y:=y1;
 v:=0;
 u:=false;
end;

Fehlt da nicht noch was?
Delphi-Quellcode:
inherited Create;


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:51 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