Question

我创建了两个单元并将第一个类放入其中一个：

  unit UBaseClass;

  interface

  type
    TBaseOuterClass = class
    protected type

      TBaseInnerClass = class
      public
      end;

    protected
      function GetInnerInstance: TBaseOuterClass.TBaseInnerClass; virtual;
    end;

  implementation

  { TBaseOuterClass }

  function TBaseOuterClass.GetInnerInstance: TBaseOuterClass.TBaseInnerClass;
  begin
  // doesn't matter
  end;

  end.

我将派生类放入第二个单元：

unit UDerClass;

interface

uses
  UBaseClass;

type
  TDerOuterClass = class(TBaseOuterClass)
  protected type

    TDerInnerClass = class(TBaseInnerClass)

    end;

  protected
    function GetInnerInstance: TBaseOuterClass.TBaseInnerClass; override;
  end;

implementation

{ TDerOuterClass }

function TDerOuterClass.GetInnerInstance: TBaseOuterClass.TBaseInnerClass;
begin

end;

end.

当我试图编译时，我得到了

[dcc32错误] UDerClass.pas（22）：E2362无法访问受保护的符号 TBaseOuterClass.TBaseInnerClass

在行函数TDerOuterClass.GetInnerInstance：TBaseOuterClass.TBaseInnerClass;

我无法理解为什么TBaseOuterClass.TBaseInnerClass（作为内部受保护类）无法从TDerOuterClass（为TBaseOuterClass派生）访问。在这种情况下，实际上是什么样的受保护类型？

我还没有在Nested Type Declarations topic找到任何解释。那么这种行为有什么理由吗？

它也与简单的受保护类型相关，如

protected type    
  TSimpleType = Integer;

我无法在TDerOuterClass中编写函数

protected    
  function GetValue: TSimpleType;

因为我会收到一条消息

[dcc32错误] UDerClass.pas（16）：E2003未声明的标识符：＆＃39; TSimpleType＆＃39;

Answer 1

它看起来像一个bug。我建议将其发布到quality portal。

现在你可以声明类型别名来欺骗编译器（在XE7中测试）。

unit UDerClass;

interface

uses
  UBaseClass;

type
  TDerOuterClass = class(TBaseOuterClass)
  protected type
    TBaseInnerClass = TBaseOuterClass.TBaseInnerClass; // <= type alias to avoid compiler error

    TDerInnerClass = class(TBaseInnerClass)

    end;

  protected
    function GetInnerInstance: TBaseInnerClass; override;
  end;

implementation

{ TDerOuterClass }

function TDerOuterClass.GetInnerInstance: TBaseInnerClass;
begin
  Result := TDerInnerClass.Create;
end;

end.

无法理解Delphi XE6受保护类型

1 个答案: