Perché l'ambito dei tipi nidificati non include le classi derivate?

Question

Mi chiedo perché l'ambito dei tipi annidati non includa classi derivate in Delphi; potrebbe rendere il codice più pulito:

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; 

Answer 1

Se non mi sbaglio, quando si scrive TVertor nel TBaseTest, il compilatore lo cerca prima in questa classe, quindi in questa unità, quindi in moduli negli usi sezione. Ecco perché puoi scrivere TVector semplice, ovvero TBaseTest.TVector.

Quando si scrive una classe TTestA, derivata da TBaseTest, e si utilizza TVector, appare prima in TTestA (non c'è TVector), quindi in questo modulo (non c'è anche TVector), quindi in Uses. Se si desidera utilizzare la classe interna di TBaseTest, è necessario scrivere direttamente TBaseTest.TVector, perché TVector è definito in TBaseTest, non in TTestA.