Generics, dynamische Listen und Kinds

[Stevie]

Bei deinem ObjectKind hast du die Entscheidung zur Laufzeit, bei Generics zur Compilezeit.

Entweder du machst deine ganze TMain Klasse generisch und definierst darüber, was dort drin steht (und verzichtest auf das ObjectKind), sofern das zur Compiletime schon entschieden werden kann (verlagert evtl die Logik, ob foo, bar oder none). Oder du benutzt für foo und bar eine gemeinsame Basisklasse. Bringt allerdings einige eher unschöne hardcasts mit sich.

Ich würde hier also folgendes vorschlagen:

Delphi-Quellcode:

type
  TMain = class(TObject)
  // ...
  end;

  TMain<T> = class(TMain)
  private
    FList: TObjectList<T>;
  public
    constructor Create;
    property List: TObjectList<T> read FList; 
  end;

implementation

constructor TMain<T>.Create;
begin
  inherited Create;

  FList := TObjectList<T>;
end;

Wenn du bei TMain noch zur Laufzeit wissen willst, von welchem Typ T ist, kannst du dort noch eine Property von TClass oder PTypeInfo einführen, welche dann vom TMain<T> constructor übergeben wird.