一如既往,这取决于问题。我使用接口来定义一组类的用户界面。至少当我知道我将拥有多个底层实际类的实现时。例如你可以有这样的东西:
IAllInterfaced = interface(IInterface)
procedure ImplementMeEverywhere_1(const Params: TParams);
procedure ImplementMeEverywhere_2(const Params: TParams);
procedure ImplementMeEverywhere_3(const Params: TParams);
end;
TAllInterfaced_ClassA = class(TInterfacedObject, IAllInterfaced)
public
procedure ImplementMeEverywhere_1(const Params: TParams);
procedure ImplementMeEverywhere_2(const Params: TParams);
procedure ImplementMeEverywhere_3(const Params: TParams);
end;
TAllInterfaced_ClassB = class(TInterfacedObject, IAllInterfaced)
public
procedure ImplementMeEverywhere_1(const Params: TParams);
procedure ImplementMeEverywhere_2(const Params: TParams);
procedure ImplementMeEverywhere_3(const Params: TParams);
end;
在这里,你们没有共同的祖先。每个类只实现接口,没有通用基类形式的通用底层结构。如果实现是如此不同以至于它们不共享任何东西,但他自己接口,这是可能的。您仍然需要使用相同的接口,以便与派生类的用户保持一致。
第二个选项是:
IAllAbstract = interface(IInterface)
procedure ImplementMeEverywhere_1(const Params: TParams);
procedure ImplementMeEverywhere_2(const Params: TParams);
procedure ImplementMeEverywhere_3(const Params: TParams);
end;
TAllAbstract_Custom = (TInterfacedObject, IAllAbstract)
private
...
public
procedure ImplementMeEverywhere_1(const Params: TParams); virtual; abstract;
procedure ImplementMeEverywhere_2(const Params: TParams); virtual; abstract;
procedure ImplementMeEverywhere_3(const Params: TParams); virtual; abstract;
end;
TAllAbstract_ClassA = class(TAllAbstract_Custom)
public
procedure ImplementMeEverywhere_1(const Params: TParams); override;
procedure ImplementMeEverywhere_2(const Params: TParams); override;
procedure ImplementMeEverywhere_3(const Params: TParams); override;
end;
TAllAbstract_ClassB = class(TAllAbstract_Custom)
public
procedure ImplementMeEverywhere_1(const Params: TParams); override;
procedure ImplementMeEverywhere_2(const Params: TParams); override;
procedure ImplementMeEverywhere_3(const Params: TParams); override;
end;
在这里,您有一个所有类的基类。在该类中,您可以具有公共属性或事件其他类等...但是所有过程都被标记为抽象,因为它们不执行任何常见任务。Abstract 确保它们将在派生类中实现,但您不需要在每个类中实现“FieldA”,您只需在“TAllAbstract_Custom”中实现它。这确保了使用 DRY 原则。
最后一个选项是:
IAllVirtual = interface(IInterface)
procedure ImplementMeEverywhere_1(const Params: TParams);
procedure ImplementMeEverywhere_2(const Params: TParams);
procedure ImplementMeEverywhere_3(const Params: TParams);
end;
TAllVirtual_Custom = (TInterfacedObject, IAllVirtual)
private
...
public
procedure ImplementMeEverywhere_1(const Params: TParams); virtual;
procedure ImplementMeEverywhere_2(const Params: TParams); virtual;
procedure ImplementMeEverywhere_3(const Params: TParams); virtual;
end;
TAllVirtual_ClassA = class(TAllVirtual_Custom)
public
procedure ImplementMeEverywhere_1(const Params: TParams); override;
procedure ImplementMeEverywhere_2(const Params: TParams); override;
procedure ImplementMeEverywhere_3(const Params: TParams); override;
end;
TAllVirtual_ClassB = class(TAllVirtual_Custom)
public
procedure ImplementMeEverywhere_1(const Params: TParams); override;
procedure ImplementMeEverywhere_2(const Params: TParams); override;
procedure ImplementMeEverywhere_3(const Params: TParams); override;
end;
这里所有的派生类都有一个共同的基础虚拟过程。这确保您不必在派生类的级别上实现每一个过程。您只能覆盖代码的某些部分或根本不覆盖。
当然,这都是边缘情况,它们之间还有空间。您可以混合使用这些概念。
只记得:
- 接口是一种强大的工具,可确保您对用户隐藏实现并确保您有一个共同的使用点(接口)。他们还强制使用一些规范,因为接口需要完全实现。
- Abstract 是一个很好的工具,因此您不必在不需要它们的过程中使用空存根。另一方面,它们迫使您在派生类中实现它们。
- 当您拥有必须由每个类实现的公共代码并确保干净的 OP 和 DRY 原则时,虚拟会派上用场。当您拥有并非每个派生类都具有或需要的过程时,它们也受到欢迎。
很抱歉,答案很长,但我无法在这里给出简单的解释,因为没有。这一切都取决于手头的问题。这是派生类有多少共同点和它们的实现有多少不同之间的平衡。