Generische Interface-Liste

[s.h.a.r.k]

So, nun habe ich das nächste Problem mit den Interfaces, in die ich mich eigentlich echt verliebt habe... Wenn man das beherrscht wirkt mein alter Code sowas von fest verdrahtet... Naja, back to topic now!

Folgende Deklarationen habe ich (sehr stark vereinfachte Form) -- Ziel des ganzen soll es sein TInterfaceList durch eine generische, einfachere Liste zu ersetzen.

Delphi-Quellcode:

// Generisches Interface als Schnittstelle für die InterfaceList
// stark gekürzt!
IGenericInterfaceList<T: IInterface> = interface
  ['{72C2E8C9-9854-474D-895C-850A3B5B3D9F}']
  function Get(Index: Integer): T;
end;

// Generische Interface-Liste, implementiert generisches InterfaceList-Interface
TGenericInterfaceList<T: IInterface> = class(TInterfacedObject, IGenericInterfaceList<T>)
public
  FInterfaces : TInterfaceList;
  function Get(Index: Integer): T;
end;

// Einfach die eine Methode implementiert
function TGenericInterfaceList<T>.Get(Index: Integer): T;
begin
  Result := FInterfaces[Index];
end;


// --------------------------------------------
//  Irgendwo anders...
// --------------------------------------------

// Einfach ein simples Interface...
IBlub = interface(IInterface)
  ['{94C4FB45-05EB-4078-A9DE-8A09132F1006}']
end;

// Benutzung des ganzen...
procedure UseItA();
var
  A : TGenericInterfaceList<IBlub>;
begin
  A := TGenericInterfaceList<IBlub>.Create();
end;

procedure UseItB();
var
  B : IGenericInterfaceList<IBlub>;
begin
  B := TGenericInterfaceList<IBlub>.Create();
end;

Solange die beiden Methoden UseItA oder UseItB aus dem Programmcode entfernt werden, ist alles okay und das Programm compiliert. Sobald ich aber die beiden Methoden einfüge, compiliert mein Programm nicht mehr, die IDE wirft mich innerhalb der Unit ans Ende und gibt mir diesen Fehler aus:

Code:

[DCC Fehler] Unit1.pas(61): E2010 Inkompatible Typen: 'IBlub' und 'IInterface'

Hatte gedacht, dass alle Interface von IInterface "abgeleitet" sind?! Ist dem nicht so? Anders gefragt: wie kann ich dann sicherstellen, dass TGenericInterfaceList nur Interfaces aufnimmt?!