如何用泛型方法继承类？

Question

有一个班级

TFoo = class
  function GetValue<T>: T;
  procedure SetValue<T>(AValue: T);
end;

编译器不允许将此类的方法定义为virtual。 如何上课

TChildFoo = class(TFoo)

可以使用祖先的方法吗？

Answer 1

正如您所观察到的，泛型方法不能是虚拟的。这种类型

type
  TFoo = class
    function Bar<T>: T; virtual;
  end;

编译器拒绝

，并出现以下错误：

  

E2533虚拟，动态和消息方法不能有类型参数

你的课程声明如下：

type
  TFoo = class
    function GetValue<T>: T;
    procedure SetValue<T>(AValue: T);
  end;

并询问子类如何使用这些方法。例如，您可以这样做：

type
  TChildFoo = class(TFoo)
    procedure DoSomething<T>;
  end;

....

procedure TChildFoo.DoSomething<T>;
begin
  SetValue(GetValue<T>);
end;

换句话说，您当然可以在父类中使用这些方法。你只是不能声明它们是虚拟的并覆盖它们。

如果你有一个参数化类（而不是参数化方法），那么你可以声明虚方法，并覆盖它们。

type
  TFoo<T> = class
    function Bar: T; virtual;
  end;

  TChildFoo<T> = class(TFoo<T>)
    function Bar: T; override;
  end;

所以，这些是你的选择。至于如何解决问题，这在很大程度上取决于问题所在。