Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.300 Beiträge
 
Delphi 12 Athens
 
#1

generische Liste als Parameter, Vererbung

  Alt 7. Jul 2015, 13:23
Delphi-Version: XE
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...
  Mit Zitat antworten Zitat