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
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ß
Wenn das Meer unruhig ist und der Wind die Wellen treibt, erfreut es, vom Strand aus die Mühen eines Anderen zu beobachten.