free erzeugt Fehler

[himitsu]

Der Spruch "Es kann nur Einen geben", trifft halt an vielen Stellen zu.

Wenn du über das Array die Objekte freigeben willst, dann ist das Array, bzw. sind die einzelnen Felder quasi der Owner ihrer zugeordneten Objekte.
Tja, und bei Objekten darf es halt nur einen Besitzer geben, welcher für die Freigabe zuständig ist, es sei denn die anderen "owner" werden beim Löschen benachrichtigt, daß das gelöschte Objekt nun weg ist und sie es aus ihrer Liste entfernen sollen.

[mkinzler]

Eine Objektliste kann Eigentümer der Objekte sein, aber ein Array?

[himitsu]

Ob du nun einer Objektliste sagst, sie solle sich um das Löschen kümmern
oder ob man sich selber bei einer Liste/Array um das Löschen kümmer,
ist hierbei unbedeutend.

Der Owner ist einfach nur für die Freigabe/Löschen zuständig ... egal, wer da nun löscht.

Hier ist es halt so, daß 2 Felder des Arrays dafür zuständig gemacht wurden ... das kommt auf's Selbe raus, als wenn man dieses Objekt zweimal in eine Objektliste stecken würde und diese dann alles freigeben soll.

[ChrisE]

Hallo,

eine Möglichkeit wäre es doch vor dem Free erst mal alle Einträge auf "gleichheit" zu prüfen und nur die in eine Zu-Löschen-Liste zu packen die nicht identisch sind. Diese wird dann eben durchlaufen und deren Objekte frei gegeben.

Nur so anbei.

Greez, Chris

[Sir Rufo]

Benutze eine separate TObjectList (OwnsObjects auf True) um dort die Level-Instanzen zu speichern.
In deinem Array kannst du dann diese Instanzen sooft verwenden wie du möchtest.
Beim Beenden des Programms einfach nur die TObjectList mit Free aus dem Speicher entfernen und der Drops ist gelutscht.

[dominikkv]

http://www.delphipraxis.net/152901-m...ml#post1034913

[fui-tak]

Danke an alle für die flotten Antworten!!

Ich habe jetzt die Lösung von Sir Rufo mit der TObjectList gewählt und es klappt ohne Probleme