delphi - 扩展类时的抽象错误

Question

type
  TObjA = class
    a: string;
  end;
type
  worker<T> = interface
    function step1(v: integer): T;
    function step2(s: string): T;
  end;

type
  ImplA<T> = class(TInterfacedObject, worker<T>)
    function step1(v: integer): T;
    function step2(s: string): T; virtual; abstract;
  end;

type
  ImplB = class(ImplA<TObjA>)
    function step2(s: string): TObjA;
  end;
implementation


function ImplA<T>.step1(v: integer): T;
begin
  result := step2(IntToStr(v));
end;

function ImplB.step2(s: string): TObjA;
var
  r: TObjA;
begin
  r := TObjA.Create;
  r.a := 'step2 ' + s;
  result := r;
end;

我正在尝试根据此结构构建功能。我知道它可以在Java中使用，但目前我正在使用delphi 2010。
调用ImplB.step1（1）时收到抽象错误
我该如何解决？

Answer 1

由于未将function step2(s: string): TObjA;声明为override，因此会出现错误。

所以在

function ImplA<T>.step1(v: integer): T;
begin
  result := step2(IntToStr(v));
end;

它从 step2而不是 ImplA调用 ImplB，正如您期望的那样

您也将返回类型从泛型对象更改为TObjA，编译器可能不喜欢这种方式，但是我没有Delphi的副本，该副本支持泛型来进行测试。