Generics

[TigerLilly]

Wenn ich versuche, das zu komplilieren

Delphi-Quellcode:

type
  TEventChain<T> = class
    constructor Create;
    destructor Destroy;
    procedure ChainEvent(NewEvent: T);
    function AttachEvent(OldEvent:T):T;
    procedure BaseEvent<T>;
  end;

bekomme ich für BaseEvent
[dcc32 Hinweis] Unit4.pas(19): H2509 Bezeichner 'T' steht im Konflikt mit Typparametern des Container-Typs Warum?

Ich würde gern sowas machen: XY:=TEventChain<TNotifyEvent>.create;

Und hier

Delphi-Quellcode:

function TEventChain<T>.AttachEvent(OldEvent: T): T;
begin
  Result := BaseEvent;
  EventList.Add(OldEvent);
end;

erhalte ich
[dcc32 Fehler] Unit4.pas(74): E2531 Methode 'BaseEvent' erfordert explizite Typargumente Was übersehe ich da?

[Zacherl]

BaseEvent<T> statt nur BaseEvent unten in der Funktion sollte das Problem beheben. Der Typ kann in diesem Falle nicht automatisch abgeleitet werden.

[TigerLilly]

Nope.

[dcc32 Fehler] Unit4.pas(76): E2010 Inkompatible Typen: 'T' und 'procedure, untyped pointer or untyped parameter'

[Uwe Raabe]

Wie schon gesagt: Da nichts über T bekannt ist, kannst du T auch nicht aufrufen oder eine Methode als T zurückgeben. Was du vorhast, geht so nicht.

[TigerLilly]

Ok, ja, das hat Sinn, wenn man es so betrachtet. Danke!

[Zacherl]

Bist du sicher, dass BaseEvent nicht eigentlich function BaseEvent: T sein soll, statt procedure BaseEvent<T> ? Anders macht es nämlich nicht wirklich Sinn.

[TigerLilly]

Das passt schon so. Der Aufruf wäre so:

AttachEvent(grid.OnResize);

Und die Methode sichert den aktuellen Event in einer Liste und weist einen neuen Event zu - eben BaseEvent, der dann dafür sorgt, dass der alte Event und allfällige weitere aufgerufen wird.

Das war der Plan :- )

[Zacherl]

Result := BaseEvent klappt aber trotzdem nur, wenn BaseEvent eine function ist

[TigerLilly]

So geht´s natürlich - ohne Generics:

Delphi-Quellcode:

 TNotifyEventChain = class
    EventList: IList<TNotifyEvent>;
    constructor Create;
    destructor Destroy;
    procedure ChainEvent(NewEvent: TNotifyEvent);
    function AttachEvent(OldEvent:TNotifyEvent):TNotifyEvent;
    procedure BaseEvent(Sender:TObject);
  end;