delphi - Delphi(XE7)将泛型类添加到泛型TDictionary

Question

在下面的代码中：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Generics.Collections;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyClass<T: TForm> = class
  public
    constructor Create;
  end;

var
  Form1: TForm1;
  List: TDictionary<integer, TMyClass<TForm>>;

implementation

{$R *.dfm}


{ TMyClass<T> }

constructor TMyClass<T>.Create;
begin
  List.Add(1, self);
end;

end.

我得到错误：


[dcc32错误] Unit1.pas（35）：E2010不兼容的类型：
'Unit1.TMyClass'和
'Unit1.TMyClass.T>'


在我尝试将Self添加到TDictionary的行中。如何在第二个参数采用通用对象的情况下将通用类添加到TDictionary？

Answer 1

虽然您的约束是要确保T只能是TForm，但是编译器不支持所谓的协方差。

您可以将Self强制广播到TMyClass<TForm>以添加它。