Freigabe von Objekten (Observerpattern)

[TheGroudonx]

Danke erstmal,

der genauere Code ist in 4 Units eingeteilt.

Hauptunit beinhaltet das ObjektX und das ObjektN
Die Unit von ObjektN speichert die Referenz auf das ObjektX als Interface


UHaupt:
ObjektN: Array of TObjektN;
ObjektX: TObjektX;

Code der Zugriffsverletzung verursacht:
ObjektN[x] := TObjektN.create(ObjektX);
ObjektN[x].freeandnil;
ObjektN[x] := TObjektN.create(ObjektX); <==



UObjektX:
TObjektX = class(TInterfacedObject, IObserverObjektX)



UObjektN:
TObjektN = class
var
ObjektX: IObserverObjektX;


UObserverObjektX
IObserverObjektX = Interface(IInterface)