Hmm, offenbar sind gegenseitige Referenzen mein Problem.
Ich habe ein MyIntf, das eine Eigenschaft IMyParentList unterstützt.
Das Interface weiß also, von welcher Liste es kontrolliert wird und kann diese über bestimmte Änderungen informieren.
Jetzt wird aber wohl die IMyParentList nicht freigegeben weil MyIntf nicht freigegeben wird und anders rum.
In der Richtung scheint das Problem zu liegen. Heute Abend geht´s dann weiter.
So wie ich das verstehe, fällt das thematisch wohl auch in diesen Bereich:
http://www.delphipraxis.net/184100-weak-tlist.html
Aber mal noch 2 andere Dinge:
Warum sind denn _AddRef und _Release nicht virtuell? Dann könnte man sich mal schnell reinhängen und die Ref-Änderungen leichter nachvollziehen.
Sehr verwirrend finde ich auch das Verhalten im Constructor.
Delphi-Quellcode:
constructor TFoo.Create;
begin // RefCount = 0
IrgendwasInZeileEins; // RefCount = 1 ... hier nur um zu zeigen, dass es nicht mit inherited zusammenhängt
inherited; // RefCount = 1
end; // RefCount = 0
..
FooObj := TFoo.Create; // RefCount = 0
FooIntf := TFoo.Create; // RefCount = 1
..
Der RefCounter wird erst mal erhöht und dann wieder auf 0 reduziert.
In bestimmten Fällen scheint er aber auf 1 zu bleiben und das FooIntf hat dann RefCount = 2. Bisher habe ich nicht gefunden, wann das auftritt.
Irgendwas muss da im Contructor anders laufen (und meine Vermutung, dass ich da etwas vermurkst habe, konnte ich bisher nicht bestätigen).