在 Delphi 中（可能在任何 OO 语言中）都无法自动清空层次结构中某个类下面的方法的实现。有两个原因：

1. 您始终可以通过使用空值覆盖该方法来自己完成 实施。

2. 这种需求非常少见，可能是层次结构设计不当的标志。

您的愿望违反了 OOP 原则。您的应用似乎存在架构问题..

这就是 Visibility of class members 派上用场的地方。

如果您希望您的 GroupSpecificMethod 仅在其某些子类中可见，请在您的 private 类中将其声明为 strict private 或 TSuper。

  TSuper = class   // An Ancestor Class.
  strict private
    procedure GroupSpecificMethod; // The Ancestor Specific Method declared as strict private.
  public
    procedure CommonMethod; // The Ancestor Common Method for All.
  end;

  TSubOne = class(TSuper)  // A Subclass needs to implement GroupSpecificMethod.
  public
    procedure CommonMethod;
    procedure GroupSpecificMethod; // The Ancestor Specific Method visibility changed to public
  end;

  TSubTwo = class(TSuper) // Another Subclass needs to implement GroupSpecificMethod.
  public
    procedure CommonMethod;
    procedure GroupSpecificMethod; // The Ancestor Specific Method visibility changed to public
  end;

  TSubThree = class(TSuper) // This class Must not have GroupSpecificMethod.
  public
    procedure CommonMethod;
  end;

注意：

• 这可以防止直接从 GroupSpecificMethod 使用 TSuper。所以你总是需要子类化 TSuper 才能使用 GroupSpecificMethod
• 此外，这不会阻止 TSubThree 的任何子类公开 GroupSpecificMethod。