Interface in eine TObjectList einerben

**Master_BB**

Hallo,
ich hab das Problem das ich ein Interface habe das bei TObjectList Objeten
mit rein soll. Ergo sieht das so aus:
TAListEx = class(TAList, IFormularTypList)
So nun hat man das Problem man kann nur Interfaces mit reinholen
wenn man als Basis InterfacedObject hat.
TObjectList hat als BasisKlasse jedoch TObject.

Jetzt hab ich mir meine eigene TInterfacedObjectList geschrieben damit das klappt.

Problem hierbei ist nun nur das das Freigeben einer Instanz zum fehler führt.
Das sieht so aus

markieren

Delphi-Quellcode:

			var 

  AList : IFormularTypList;

begin

  AList := TAListEx.Create;

  AList.Free;  //CRASH

end;

so nun ist die Frage woran liegt jetzt der Fehler an meiner InterfacedObjList?

Kennt jemand eine ObjectList die von hauseaus schon Interfaces unterstützt?

Gruß

Interface in eine TObjectList einerben

Interface in eine TObjectList einerben

Forumregeln