Hallo zusammen,
mein Problem hat nur indirekt was mit OpenGL zu tun, aber ich hoffe ich finde hier trotzdem Rat.

Also, kurz vorweg:
Ich habe eine Klasse Polygon und eine Klasse Ebene.
In meinem Polygon werden Daten wie, bspw. die Eckpunkte gespeichert und es verfügt über Funktionen zum Zeichnen seiner selbst.
Meine Ebene besteht wiederum aus einer Liste von Polygonen, Attributen wie: Farbe und Höhe und einigen Funktionen.
Jedes Polygon wird einer Ebene zugeordnet und erhält einen Zeiger auf seine Ebene, dies geschieht mit einem AddPoly Befehl der Ebene.
Die Daten der Polygone und Ebenen lese ich aus einer Datei aus.



Nun, mein Problem ist nun, dass... wer hätte es anders erwartet es nicht funktioniert^^.
Aufgerufen wird das ganze ungefähr so:


Nun es sieht wie folgt aus, ich rufe die beiden Prozeduren auf, in der ersten (hier wird das Einlesen realisiert) läuft alles noch wie es soll: die einzelnen Polygone greifen auf ihre Parents zurück und alle Funktionen sind glücklich. Springt er jedoch nach dem Einlesen in die nächste Prozedur, quittiert mir Delphi alles mit einem Zugriffsfehler.

Ich habe das ganze mal versucht mit dem Debugger nachzuvollziehen... dabei fiel mir auf, dass meine Ebenen die Werte/Speicherplätze §ADXXXX haben. Der Wert Tmp aus AufrufEins liefert auch einen solchen Zeigerwert zurück. Auch das Polygon hat dann den Parent $AXXXXXX womit die Berechnungen hier auch funktionieren. Wenn ich aber jetzt das Polygon meiner Ebene hinzufügen will, ist mir aufgefallen dass der Wert Self mir eine völlig andere Adresse meiner Ebene liefert was in etwas so ausschaut: $F5DXXXX. Folglich verweist der Parent des Polygons jetzt auf... ja was eigentlich(?) .. und somit schlägt der zweite BeispielAufruf mit einer Zugriffsverletzung fehl.

Nun steh ich vor der Frage, wie bekomme ich es hin, dass mein Parent auf die richtige Ebene zeigt. Eigentlich sollte Self doch das Objektes wiedergeben und @Self dann einen Zeiger darauf, oder irre ich hier? Ich muss beim Übergeben an die Ebene, den Parent des Polygons ändern, da es auch Polygone gibt, welche ohne Parent das Licht der Welt erblicken können.

Nun ich hoffe ich hab halbwegs verständlich mein Problem rübergebracht.. und vielleicht kennt ja jemand die Lösung :/

Grüße

Klassen sind Pointer, von daher sind Pointer auf Klassen unsinnig.

_________________
Steppity,✲steppity,✴step,❆step,✳step!
❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Hmmm, entweder habe ich dann hier gerade eine Denkblockade... aber, um in meinem Polygon auf die Attribute der Ebene (Parent) zugreifen zu können, muss ich doch auf diese "Zeigen". Da mir Delphi nicht erlaubt bereits in der Dekleration folgendes zu schreiben:

muss ich doch den Weg über

gehen?

Grüße

TEbene ist schon PEbene.

_________________
Steppity,✲steppity,✴step,❆step,✳step!
❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Das geht und zwar so:

Exakt. Was Schläfer beschreibt ist eine Forward-Declaration. Damit kannst du Delphi schon im Voraus sagen, dass TEbene später als Klasse deklariert wird. Der Umweg über den Pointer ist nicht schön und sollte bei Objekten/Klassen nur in besonderen Situationen verwandt werden.

greetings

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Ok, wieder was gelernt
Damit hat sich mein Problem scheinbar gelöst, morgen gleich mal ausprobieren.
Ich danke euch vielmals!

Grüße