delphi - "As"约束泛型类型的运算符

Question

考虑:

TTest <T : class, constructor> = class 
public
  function CreateMyObject : T;
end;
function TTest<T>.CreateMyObject : T;
var
  Obj : TObject;
begin
  Obj := T.Create; 
  Result := (Obj as T);
end;

为什么这不可能？编译器为 as 运算符生成“运算符不适用于此类型”错误消息。 T 被限制为类类型，所以这应该可以工作，不是吗？

感谢您的帮助。

Answer 1

我遇到了同样的问题，并通过向类添加低级指针复制方法作为解决方法来解决它:

  TTest <T : class, constructor> = class
  private
    function _ToGeneric(AItem: TObject): T; inline; //inline, so it's a little faster
  public
    function CreateMyObject : T;
  end;

  function TTest<T>.CreateMyObject : T;
  var
    Obj : TObject;
  begin
    Obj := T.Create;
    Result := _ToGeneric(Obj);
  end;

  function TTest<T>._ToGeneric(AItem: TObject): T;
  begin
    System.Move(AItem,Result,SizeOf(AItem))
  end;