前端之家收集整理的这篇文章主要介绍了
delphi – 具有参数约束的泛型构造函数?,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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;
@H_
502_4@如何使用整数参数创建类.
解决方法是什么?
只是对正确的类进行类型转换:
type
TMyBaseClassClass = class of TMyBaseClass;
procedure TClass1<T>.Test;
begin
FItem:= T(TMyBaseClassClass(T).Create(42));
end;
@H_
502_4@此外,将构造
函数设置为虚拟可能是个好主意.
原文链接:https://www.f2er.com/delphi/103100.html