generische Liste als Parameter, Vererbung

[haentschman]

Hallo alle...

Ich habe mehrere generische Listen welche von einer "Basis" Liste abgeleitet sind.

Delphi-Quellcode:

TListBasis<T: class> = class(TObjectList<T>)
public
  constructor Create; virtual;
end;

TList1 = TListBasis<TBlubb>
TList2 = TListBasis<TBla>

Jetzt wollte ich ein Event bauen was bei einer Änderung egal welcher Liste gefeuert wird. Der Empfänger soll dann schauen um welche Liste es sich handelt und entsprechend weiterverarbeiten.

Delphi-Quellcode:

TOnLoadListEvent = procedure (Sender: TObject; aList: TListBasis<T>) of object;

if Assigned(FOnLoadList) then
begin
  FOnLoadList(Self, FList2); // FList2 = Instanz von TList2 
end;

...resultiert in:

Zitat:

[DCC Fehler] dAV3_Preferences.pas(14): E2003 Undeklarierter Bezeichner: 'T'

Wo liegt mein Denkfehler? Geht das überhaupt? Welche Alternativen gibt es?

Danke...