带有构造函数约束的delphi泛型

Question

我尝试编译这段代码：

TMyClass<T: class, constructor> = class(TObjectList<T>)
public
  constructor Create; reintroduce;
end;
TConcretClass = class(TMyClass<TConcretClass>)
public
  constructor Create; reintroduce;
end;

但我得到下一个错误：

E2513 Type parameter 'T' must have one public parameterless constructor named Create

Answer 1

TConcretClass = class(TMyClass<TConcretClass>)

我不认为你的意思是你要声明的类是一个包含类型为自身的成员的列表。在任何情况下，编译器都会反对，因为TObjectList<T> 有一个带有无法隐藏参数的构造函数。编译器说：

E2513 类型参数“T”必须有一个名为 Create 的公共无参数构造函数

而TObjectList<T> 无法满足该要求。

我怀疑你想要更像这样的东西：

type
  TMyClass<T: class, constructor> = class(TObjectList<T>)
  end;

  TListMemberClass = class(TObject)
  end;

  TConcreteClass = class(TMyClass<TListMemberClass>)
  end;