delphi – 具有参数约束的泛型构造函数?

前端之家收集整理的这篇文章主要介绍了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

猜你在找的Delphi相关文章