delphi – 与泛型的接口 – 设置为NIL

我试图在Delphi 2009中的以下示例代码中实现清楚.

interface
...
  TFoo<T : IInterface> = class(TObject)
    FField : T;
    procedure Clear;
  end;
...
implementation
...
procedure TFoo<T>.Clear;
begin
  // Line Below Results In
  //  E2010 Incompatible types: 'T' and 'Pointer' 
  FField := nil;
end;
...

如果“T”没有受到约束,我可以理解合规时间错误.
但是由于“T”必须是一个接口,所以我会以为这个语法会有
工作.

有没有将FField设置为NIL,因此可以释放接口？

解决方法

而不是nil,您必须使用新的Default(T),它返回通用参数类型的默认值.对于接口,它是零

procedure TFoo<T>.Clear;
begin
  FField := Default(T);
end;

原文地址：https://www.jb51.cc/delphi/102605.html