delphi - 隐藏仅在私有(private)协会中使用的成员的类？

Question

给出以下示例，是否有任何方法可以使类 TPivateUseOnly 成为私有(private)或私有(private)。将其移至实现部分？恕我直言，这是不可能的。但我不确定我是否错过了新一代Delphi语言的一些OOP特性。

unit Unit1;

interface

type
  TPrivateUseOnly = class(TObject)
  end;

  TMyClass = class(TObject)
  strict private
    FXYZ: TPrivateUseOnly;
  public
    ...
  end;

implementation

end.

Answer 1

您可以创建嵌套类。如果您将此类放在严格的私有(private)部分中，那么它将不可用于任何其他单元:

type
  TMyClass = class(TObject)
  strict private
    type
      TPrivateUseOnly = class(TObject)
        test: boolean;
      end;
  strict private
    FXYZ: TPrivateUseOnly;
  public
    ...
  end;

如果我随后尝试访问另一个单元中的私有(private)类，则会收到以下错误:

[DCC Error] Unit1.pas(28): E2361 Cannot access private symbol TMyClass.TPrivateUseOnly

当您引用 TMyClass 内的嵌套类时，您可以使用 TPivateUseOnly 访问它。如果您需要在单元内部访问它，那么它需要是私有(private)，并且您可以使用TMyClass.TPrivateUseOnly访问它。