delphi - 如何确保 future 的继承覆盖过程？

Question

我正在编写一个带有一些虚拟/抽象过程的类，我希望这些过程能够被覆盖。然而，它们也可能不会被覆盖，这也很好。问题在于查明这些过程之一是否实际上被覆盖。如果它们没有被覆盖，我不应该尝试调用这些过程，而需要采取不同的措施。如果我尝试调用其中一个并且没有被覆盖，我会收到Abstract Error。

有没有办法可以检测这些过程是否被覆盖？

以下是声明方式的示例:

type
  TMyClass = class(TObject)
  protected
    procedure VProc; virtual;
    procedure VAProc; virtual; abstract;
  end;

Answer 1

你可以做这样的事情。请注意，我已经删除了“摘要”。它可能适用于“抽象”，但我还没有尝试过。

type 
  TMyClass = class(TObject) 
  protected 
    procedure VProc; virtual; 
    procedure VAProc; virtual; //abstract;
  end; 


function GetVAProcAddress(Instance: TMyClass): pointer;
var
  p: procedure of object;
begin
  p := Instance.VAProc;
  result := TMethod(p).Code;
end;


//in one of the TMyClass methods you can now write:

  if GetVAProcAddress(self) <> @TMyClass.VAProc then