Hallo,
Delphi-Quellcode:
// Generische Interface-Liste, implementiert generisches InterfaceList-Interface
TGenericInterfaceList<T: IInterface> = class(TInterfacedObject, IGenericInterfaceList<T>)
public
FInterfaces : TInterfaceList;
function Get(Index: Integer): T;
end;
Mit Interfaces in Verbindung mit generischen Listen habe ich zwar noch nichts gemacht aber sollte es nicht so gehen?
Delphi-Quellcode:
// Generische Interface-Liste, implementiert generisches InterfaceList-Interface
TGenericInterfaceList<T: IInterface> = class(TInterfacedObject, IGenericInterfaceList<T>)
public
FInterfaces : TList<T>;
function Get(Index: Integer): T;
end;
Und dann ohne Cast.
einbeliebigername.