如何将不同的类封装在一个类中并保持其独特的方法？ （delphi中的多重继承？）

Question

我目前正在重写一个免费的教育数字电路模拟器，以为其功能添加惯性。我的问题是如何将事件分派到原始类，并向它们添加预先阐述。我有这样的事情：

TC1 = class
  ID: integer;
  Connections : array [integer] of Pin;
  function Func1; virtual;
  function FuncN;
end;

TC2-1 = class (TC1)
  function Func1; override;
  function My1Func();
end;

TC2-n = class (TC1)
  function Func1; override;
  function MyNFunc();
end;


TContainer = class
  C1 : TC1;
  function ContFunc;
end;

function Container.ContFunc;
begin
    c1.Func1;
end;

现在这意味着 ContFunc 按我的意愿调用 C2.Func1，专门继承 TC1 的 300 多个组件的行为。

但现在我必须添加一些特殊操作（对于所有组件后代都相同 每次调用 Func1 时从 TC1 开始，并在该操作期间进行选择（如果必须的话） 是否调用 TC2-n.Func1（在更改祖先 TC1 的某些属性后）。 有没有一种方法可以干净地做到这一点，而不改变 TC1 的所有后代？ 我可以像这样使用辅助类（已弃用吗？）：

TH = class helper of TC1
  function Func1 virtual; override;
end;

function TH.Func1;
begin
  if x then TC2.Func1 else SaveActionData; 
end

如果我添加 TH，当 TContainer 调用 Func1 时，谁被调用？ 它调用 TC2.Func1 而不是我希望的 TH.Func1？ 有没有办法重写后代方法 Func1 无需为任何单个类编写辅助类（它们将完成所有操作） 相同的操作，意味着完全相同的代码）？ 可以从 TH 调用 TC2-n 的 300 个后代函数 Func1 吗？

换句话说，我试图找到一种方法来通过 Tcontainer 调用 c1.Func1;:

NewFunc1 （对于所有 TC1 后代都相同）调用 TC2.Func1 （对于 TC1 的任何后代都不同）来获得这样的调用。

任何人都可以建议一种方法来做到这一点？

Answer 1

每当有人调用 Func1 时，您都需要执行一些任务，无论后代选择在其重写方法中执行什么操作。这是模板方法模式的工作。

为基类提供一个公共非虚拟方法 Func1，该方法执行您需要的操作，然后调用受保护的虚拟方法。后代可以重写该虚拟方法，但使用该类的任何人只能调用公共非虚拟方法。

type
  TC1 = class
  protected
    function InternalFunc1: Integer; virtual; // abstract?
  public
    function Func1: Integer;
  end;

function TC1.Func1;
begin
  if x then
    Result := InternalFunc1
  else
    Result := SaveActionData; 
end;

现在，后代可以重写InternalFunc1，并且基类将确保仅在适当的时候调用它。

type
  TC2 = class(TC1)
  protected
    function InternalFunc1: Integer; override;
  end;

您需要在所有 300 个后代类中重命名当前的 Func1 函数。 IDE 的重构工具也许能够帮助解决这个问题。

Answer 2

类助手对于修改您无法从源代码获取的类非常有用。如果您是 TC1 类的作者，并且您能够通过引入 TC1 的类帮助器来进行必要的更改，那么为什么不直接修改 TC1.Func1，然后就完成了呢？那应该有效。

Answer 3

您可以按照装饰器模式创建一个包装类来描述程序在模拟模式下运行时需要发生的特殊任务。它可以保存数字组件的实例，并在执行自己的任务后调用该组件的方法。

type
  TAnalogueDecorator = class(TC1)
  private
    FComponent: TC1;
  public
    constructor Create(Wrapped: TC1);
    destructor Destroy; override;

    function Func1: Integer; override;
  end;

constructor TAnalogueDecorator.Create(Wrapped: TC1);
begin
  inherited Create;
  FComponent := Wrapped;
end;

destructor TAnalogueDecorator.Destroy;
begin
  FComponent.Free;
  inherited;
end;

function TAnalogueDecorator.Func1: Integer;
begin
  SaveActionData;
  Result := FComponent.Func1;
end;

请注意，无需事先检查您的 x 条件。您不必每次调用任何方法时都检查它，而是可以在用模拟组件包装数字组件之前检查一次。现在，您最初在数字类上直接调用 Func1 的所有位置都会首先绕道到模拟类的方法。