为什么嵌套类型的范围不包括派生类？

我不知道为什么嵌套类型的范围不包括Delphi中的派生类;它可以使代码更干净：

type
  TBaseTest = class
  public type
    PVector = ^TVector;
    TVector = record
      A,B,R: Integer;
    end;
  public
    procedure Execute(var Vector: TVector); virtual; abstract;
  end;

  TTestA = class(TBaseTest)
  public
// E2003 Undeclared identifier: 'TVector'
    procedure Execute(var Vector: TVector); override;
// workaround:
//  procedure Execute(var Vector: TBaseTest.TVector); override;
  end;

解决方法

如果我没有错误,当你在TBaseTest中编写TVertor时,编译器首先在这个类中,然后在这个单元中,然后在Uses部分的模块中找到它.这就是为什么你可以编写简单的TVector,意思是TBaseTest.TVector.

当你写一个TTestA类,派生自TBaseTest,并使用TVector,它首先在TTestA(没有TVector),然后在这个模块(也没有TVector),然后在使用.如果要使用TBaseTest的内部类,则应直接写入TBaseTest.TVector,因为TVector在TBaseTest中定义,而不是在TTestA中定义.