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

Delphi-Quellcode:

[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

Delphi-Quellcode:

[dcc32 Fehler] Unit4.pas(74): E2531 Methode 'BaseEvent' erfordert explizite Typargumente

Was übersehe ich da?

[Zacherl]

Delphi-Quellcode:

BaseEvent<T>

statt nur

Delphi-Quellcode:

BaseEvent

unten in der Funktion sollte das Problem beheben. Der Typ kann in diesem Falle nicht automatisch abgeleitet werden.

[TigerLilly]

Nope.

Delphi-Quellcode:

[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

Delphi-Quellcode:

BaseEvent

nicht eigentlich

Delphi-Quellcode:

function BaseEvent: T

sein soll, statt

Delphi-Quellcode:

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]

Delphi-Quellcode:

Result := BaseEvent

klappt aber trotzdem nur, wenn

Delphi-Quellcode:

BaseEvent

eine

Delphi-Quellcode:

function

ist :P

[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;