Interface in eine TObjectList einerben

[bhenker]

Die Unit Classes enthält eine Klasse TInterfaceList, mit der sich Listen von Interfaces verwalten lassen. Wenn deine Objekte alle ein Interface implementieren, sollte diese alles haben was Du brauchst.

Delphi-Quellcode:

var
  IList: TInterfaceList;
begin
  IList := TInterfaceList.Create;
  try
   IList.Add(<InterfaceRef>:IInterface)
   ...
  finally
    IList.Free;
end;

Man sollte aber immer darauf achten Interfaces und Objekte nicht zu mischen, (meistens)früher oder später kracht´s. Dem Referzzähler geht dann die Puste aus. Ich habe mir angewöhnt, Bei Objekten mit Interfaces diese nur über entsprechende Interface-Variablen zu verwenden.

Gruß