将具有通用参数的类传递给 Delphi 中的另一个类

Question

我在 Delphi XE5 中有 2 个课程，并将一个传递给另一个：

  TfrmBaseList = class(TForm)
  private
    FListOwner: TSystemBaseList<TSystemColumnEntity>;
  public
    constructor Create(AListOwner: TSystemBaseList<TSystemColumnEntity>); virtual;
  end

  TSystemBaseList<T: TSystemColumnEntity> = class(TPersistent)
  public
    procedure Execute;
    property SelectedValues: TObjectList<T> read 
  end;


  procedure TSystemBaseList<T>.Execute;
  var
    frmList: TfrmBaseList;
  begin
   //frmList := TfrmBaseList.Create(Self<T>)
   //frmList := TfrmBaseList.Create(Self<TSystemColumnEntity>)  
   frmList := TfrmBaseList.Create(???????)
  end;

如何将 TSystemBaseList 传递给 TfrmBaseList 类的构造函数？

这个构造函数只创建一个Form然后将AListOwner赋值给FListOwner， 我可以将此构造函数更改为这样的属性吗：

TfrmBaseList = class(TForm)
private
  FListOwner: TSystemBaseList<TSystemColumnEntity>;
public
  property ListOwner: TSystemBaseList<TSystemColumnEntity> read FListOwner write FListOwner;
end

我该如何设置？

Answer 1

构造函数需要一个具体的实例化，一个实例：

TSystemBaseList<TSystemColumnEntity>

您提供了一个未实例化的泛型类型实例：

TSystemBaseList<T>

您必须为该构造函数提供一个具体实例。在其当前形式中，您无法从 TSystemBaseList<T>.Execute 实例化该表单。

您可能会认为因为T 必须派生自TSystemColumnEntity，所以TSystemBaseList<T> 将与TSystemBaseList<TSystemColumnEntity> 兼容。但事实并非如此，因为不支持通用差异。在此处阅读有关此主题的更多信息：Generics and variance。

一种方法是使表单类型也通用。尽管这与 IDE 表单设计器不兼容。我怀疑需要进行更彻底的重新设计来解决您的问题。我不会就重新设计提供建议，因为我不知道问题所在。