如何访问子类中的函数？

Question

子类可以访问父类的protected函数，但是父类不能访问子类的protected函数。

我想尽可能保持两个类的私有。父类是一个表单，并且只使用一次实例。子类中的所有函数都是静态的，它继承自父类。

如何从父类访问子类（在另一个单元）中的非公共静态方法？

编辑：

父类（第一单元）：

interface

type
TParent = class
  public
    procedure Initialize;
  protected
    procedure Test; virtual;
end;

implementation

procedure TParent.Initialize;
begin
  Writeln('Initializing');
  Test;
end;

procedure TParent.Test;
begin

end;

儿童班（第二单元）：

interface

uses
ParentClass;

type
TChild = class(TParent)
protected
  procedure Test;override;
end;

implementation

procedure TChild.Test;
begin
  Writeln('Test!');
end;

代码（第三单元）：

var c:TParent;

begin
  try
    c := c.Create;
    c.Initialize;
    c.Free;
    Readln;
end;

输出只是“初始化”。我尝试调试它，它没有到达子类。

Answer 1

实际上有几种方法可以做到这一点，在您的父类中，创建您调用的虚拟方法，但这些方法不做任何事情。在您的子类中，覆盖这些方法。这些方法很容易被保护，但它们必须存在于父级中。

type
  TParent = class
  protected
    procedure SpecialProcessing; virtual;
  public
    procedure DoWork;
  end;

  TChild = class(TParent)
  protected
    procedure SpecialProcessing; override;
  end;

procedure TParent.DoWork;
begin
  SpecialProcessing;
end;

procedure TParent.SpecialProcessing;
begin
  // does nothing, placeholder
end;

procedure TChild.SpecialProcessing;
begin
  // do special work here
end;

我故意没有将 TParent.SpecialProcessing 抽象化。这可以做到，但前提是 TParent 永远不会被直接创建，只有后代才会被创建。抽象方法是一种未实现但用作占位符以供以后的子实现的方法。

要创建实例，请使用以下内容：

var
  C : TParent;
begin
  // Create as a TChild, which is a TParent decendant
  C := TChild.Create;
  try
    C.DoWork;
  finally
    C.Free;
  end;
end;

Answer 2

你想做的事情违反了继承中的Liskov Substitution 原则。可能有更好的方法来做到这一点。你到底想做什么？

编辑：

为什么不能从子类创建对象实例。您始终可以将其分配给父类类型的变量。这通常在工厂模式中完成。

Answer 3

这是不可能的。在子类中使用非公共方法的全部目的是防止类（子类除外）能够访问它们。试图解决这个问题违反了基本的面向对象原则。

我会考虑重新考虑你的设计。

Answer 4

对于已经回答的人来说，我可能遗漏了一些显而易见的东西。但我认为这只是实例化正确对象的问题。

如果对象是子类的实例，父代码将调用子代码。

试试这个

var c:TChild;
begin
  c := TChild.Create;
  c.Initialize;
  c.Free;
end.

甚至

var c:TParent;
begin
  c := TChild.Create;
  c.Initialize;
  c.Free;
end.

Answer 5

您可以通过在创建子类时向父类注册子类来做到这一点，使用某种回调（父类上的 cattr，子类在定义时设置）。

不过，这很少是正确的做法。就像其他人所说的那样，考虑一个不同的模式。

我不是delphi coder，但是你可以在父类上设置一个公共静态变量，在子类的setup方法中设置。

这在某些情况下是有意义的（希望将消息传递给各种子类的类设置方法），但可能有更好的方法来满足您的需要。您可能想让您的问题更多地与您的代码正在解决的问题有关。