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

发布时间：2020-12-15 04:27:17 所属栏目：大数据来源：网络整理

导读：我不知道为什么嵌套类型的范围不包括Delphi中的派生类;它可以使代码更干净： type TBaseTest = class public type PVector = ^TVector; TVector = record A,B,R: Integer; end; public procedure Execute(var Vector: TVector); virtual; abstract; end; TTe

我不知道为什么嵌套类型的范围不包括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中定义.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!