有没有办法“代码重用”只公开实现部分的类？

Question

我刚刚阅读了一种有趣的代码结构化方法，该方法将实际类隐藏在单元的实现部分深处，并仅通过接口公开它们，如下所示：

unit MyClass;

interface

type

   IMyClass = interface(IInterface)
   [GUID]
      procedure A;
      procedure B;
   end;

function CreateMyClass: IMyClass;

implementation

type

   TMyClass = class(TInterfaceObject, IMyClass)
   strict private    
      procedure A;
      procedure B;
   end;

function CreateMyClass: IMyClass;
begin
   Result := TMyClass.Create;
end;

   ...

end;

在我需要从 TMyClass 继承一个类以进行代码重用之前，这会产生奇迹。除了在同一单元implementation 部分中插入第二个类之外，还有其他方法吗？

Answer 1

您可以从类继承的唯一方法是在可以看到类声明的代码中。因此，如果声明仅出现在实现部分中，则只有也在该实现部分中的代码可以从该类派生。