Hilfe beim Beheben einer Access Violation

[Romi]

Hi,

in diesem Thread habe ich ein Programm namens JewelCrack vorgestellt, das noch einen Fehler enthält: Es treten scheinbar zufällig Access Violations auf.

Ich habe diese schon mehrfach im Debugger abgefangen. Sie treten auf, wenn ich auf einen Stein zugreife.

Zum Aufbau des Programms (Sourcecode hängt auch unten an):
Ich habe einen Array[1..400] of tStein. Dieser wird am Anfang mit Steinen bis an den Rand gefüllt und dann werden Einzelne dieser Steine immer wieder zerstört. Ich gehe sehr oft diesen Array durch und greife dabei dann auf bestimmte Steine zu (natürlich nachdem ich geprüft habe, dass diese nicht nil sind und dass diese nicht "deaded" sind (das ist die Andorra2D-Methode (der Grafikengine, die ich benutzte), Sprites zu töten). Und genau bei diesen Zugriffen passiert es. Das komische ist, dass es nicht immer passiert. Man kann gerne mal fünf Spiele spielen, ohne das etwas passiert, und bei sechsten schmeisst er dann mit Fehlern um sich.

Noch ein Kommentar zum Sourcecode:
Er ist technisch gesehen sicherlich nicht sonderlich schön. Aber ich habe ihn ein wenig Kommentiert und strukturiert ist er auch, er sollte eigentlich relativ leicht zu lesen sein. Verbesserungsvorschläge und Unschönheiten in meiner Arbeit nehme ich allerdings gerne entgegen, man will ja dazulernen ;)
Erstellt wurde er mit Delphi 7, später zu Delphi 2009 konvertiert. Die Projektdatei ist also für D2009.

Es ist mir eigentlich relativ egal, was ihr mit dem Sourcecode macht. Nur wenn ihr ihn modifizieren wollt, dann lasst doch bitte meinen Namen dabei stehen.

Danke schonmal,
Roman

EDIT: Hier bekommt ihr Andorra2D her: http://downloads.sourceforge.net/and...se_mirror=osdn

[hoika]

Hallo,

AdDraws not found.

Ist wohl diese Andorra ?

Warum hängt das nicht mit dan ?
*faul*
Ausserdem gibt es je verschieden Versions-Stände.



Heiko

[Romi]

Zitat:

Zitat von hoika

Hallo,

AdDraws not found.

Ist wohl diese Andorra ?

Warum hängt das nicht mit dan ?
*faul*
Ausserdem gibt es je verschieden Versions-Stände.



Heiko

Achso, natürlich. Andorra2D gibts hier: http://downloads.sourceforge.net/and...se_mirror=osdn

[hoika]

Hallo,

nunja ;(
klappt ja erst ab D7 (habe hier D6).

Aber

Das hier so komisch aus.

Delphi-Quellcode:

  for i := 1 to 400 do
    if (Steine[i] <> nil) AND not (Steine[i].Deaded) then Steine[i].dead;

  XXX

      Steine[arr] := tStein.Create(AdSpriteEngine);
      Steine[arr].einrichten(offsetX, offsetY, random(5));

Bist dui dir sicher, dass die Stein auch wirklich als Klasse (Objekt) gelöscht werden.
Scheibe mal einen destructor für TStein und setze mal nen BreakPoint.

Der Destructor muss ja bei .dead aufgerufen werden.

Ausserdem würde ich mal mit memcheck oder FastMM4 prüfen, ob irgendwelche Speicherlecks drin sind.


Heiko

[Romi]

Danke für deine Antwort.

Zitat:

Zitat von hoika

Bist dui dir sicher, dass die Stein auch wirklich als Klasse (Objekt) gelöscht werden.
Scheibe mal einen destructor für TStein und setze mal nen BreakPoint.

Die Klasse tStein erbt ja von TImageSpriteEx. Diese erbt wiederrum von ein paar anderen Klassen, aber ganz unten haben diese auch einen Destructor, der aufgerufen wird, sobald das Sprite "dead" ist.

Zitat:

Zitat von hoika

Ausserdem würde ich mal mit memcheck oder FastMM4 prüfen, ob irgendwelche Speicherlecks drin sind.

Mh, hab ich keine Ahnung von. Aber das werde ich mir mal angucken.

[hoika]

Hallo,

memcheck finde ich einfacher


in der dpr als erste unit mit

uses
MemCheck,

Memcheck einbinden
(http://v.mahon.free.fr/pro/freeware/memcheck/)

und als 1. Befehl nach dem Begin

begin
MemChk;

Damit wird NACH dem Programm laufen (also nach dem Beenden) Speicherlecks angezeigt.


Heiko

[Romi]

Also, mit memcheck crasht das Ding sofort am Start. Warscheinlich inkompatibel zu D2009?

[lbccaleb]

Hey,
probiers mal mit FastMM!

[hoika]

Hallo,

< Also, mit memcheck crasht das Ding sofort am Start. Warscheinlich inkompatibel zu D2009? >
hm ?

Mal nen breakpoint in die dpr gesetet ?


Heiko

[rollstuhlfahrer]

HI,

keine Ahnung, ob das weiterhilft, aber nutze mal zum Zerstören FreeAndNil. So hast du auf jeden Fall ein NULL-Objekt. Und auch bei Exceptions beim Free - mal den Wert mit nil überschreiben (auch wenn dann ein Speicherleck entsteht). Ansonsten, wie gesagt: Schnelle boolische Auswertung mit {$B+} anschalten.

Bernhard