Hallo alle...

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

markieren

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.

markieren

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...

TListBasis<T: class> != TListBasis<T> was passiert wenn du das in ersteres änderst?

Danke für die Rückmeldung.

Ich habe schon diverse Varianten durch. Diese auch. Ich suche schon den Vormittag nach meinem Denkfehler. Ich denke langsam, das das nicht möglich ist.

habs:

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

markieren

Delphi-Quellcode:

  private
    FOnLoadList : TOnLoadListEvent<TBla>;
    { Private-Deklarationen }
  public
    property OnLoadList : TOnLoadListEvent<TBla> read FOnLoadList write FOnLoadList;

-----------------------------------------------------------------------------------

Was nicht geht:

markieren

Delphi-Quellcode:

  private
    FOnLoadList : TOnLoadListEvent<T>;
    { Private-Deklarationen }
  public
    property OnLoadList : TOnLoadListEvent<T> read FOnLoadList write FOnLoadList;

da gibt es einen Fehler:

[dcc32 Fehler] Unit2.pas(27): E2511 Typparameter 'T' muss ein Klassentyp sein

Danke für deine Bemühungen...

Tja, da kann man dem Event aber nur TBla übergeben. Es sollte aber auch TBlubb gehen. Deshalb hatte ich das über den "Vorfahr" versucht.
Alternative wäre für jeden Listentyp ein getrenntes Event.

Klarer Fall von "hier fehlt uns die Covarianz in Delphi"