Generics mit abgeleiten Klassen

[Uwe Raabe]

Delphi-Quellcode:

  
type
  TMyGeneric<T: constructor, TMyBase> = class
  private
    FMyItem: T;
  public
    constructor Create;
    property MyItem: T read FMyItem;
  end;

constructor TMyGeneric<T>.Create;
begin
  inherited;
  FMyItem := T.Create;
end;

Geschickterweise macht man das TMyBase.Create dann auch noch virtual .