class - 使用类引用进行多态和继承(第2部分)？

Question

下面的控制台应用程序显示“运行时错误” ...

为什么会发生这种情况？非常感谢 ！

PS：Related SO post

program Project2;

{$APPTYPE CONSOLE}

type
  TParent = class;
  TParentClass = class of TParent;

  TParent = class
  public
    procedure Work; virtual; abstract;
  end;

  TChild1 = class(TParent)
  public
    procedure Work; override;
  end;

  TChild2 = class(TParent)
  public
    procedure Work; override;
  end;

procedure TChild1.Work;
begin
  WriteLn('Child1 Work');
end;

procedure TChild2.Work;
begin
  WriteLn('Child2 Work');
end;

procedure Test(ImplClass: TParentClass);
var
  ImplInstance: TParent;
begin
  ImplInstance := ImplClass.Create;
  ImplInstance.Work;
  ImplInstance.Free;
end;

begin
  Test(TParent);
  Test(TChild1);
  Test(TChild2);
  Readln;
end.

Answer 1

TParent.Work方法声明为abstract。 documentation说：


您只能在已重写该方法的类或类的实例中调用抽象方法。


调用TParent.Work时，您违反了该规则，因此遇到运行时错误。