TMyBaseClass=class
constructor(test:integer);
end;
TMyClass=class(TMyBaseClass);
TClass1<T: TMyBaseClass,constructor>=class()
public
FItem: T;
procedure Test;
end;
procedure TClass1<T>.Test;
begin
FItem:= T.Create;
end;
var u: TClass1<TMyClass>;
begin
u:=TClass1<TMyClass>.Create();
u.Test;
end;
如何使用整数参数创建类。解决方法是什么?
最佳答案
只需类型转换为正确的类:
type
TMyBaseClassClass = class of TMyBaseClass;
procedure TClass1<T>.Test;
begin
FItem:= T(TMyBaseClassClass(T).Create(42));
end;
此外,将构造函数设为虚拟可能是个好主意。
关于delphi - 具有参数约束的泛型构造函数?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7215692/