Clases y objetos de Delphi (11) - declaración de clases hacia adelante

// Ejemplo 1: Esto es correcto 
  TClassA = clase 
    Field1: string ; 
    Field2: Integer; 
  end ; 

  TClassB = class 
    Field1: string ; 
    Field2: Integer; 
    Field3: TClassA; { El tipo de campo Field3 es el tipo TClassA recientemente definido } 
  end ; 


// Ejemplo 2: Esto está mal, hay un problema de secuencia 
  TClassA = clase 
    Field1: string ; 
    Field2: Integer; 
    Field3: TClassB; { El tipo de Field3 es el tipo de TClassB que se definirá } 
  end ; 

  TClassB =clase 
    Campo1: cadena ; 
    Campo2: Entero; 
  fin ; 


// Ejemplo 3: Declaración de 
  reenvío de solución TClassB = clase ; { declaración de reenvío } 

  TClassA = clase 
    Campo1: cadena ; 
    Campo2: Entero; 
    Campo3: TClassB; 
  fin ; 

  TClassB = clase 
    Field1: string ; 
    Field2: Integer; 
  end ;

Reimpreso: https://www.cnblogs.com/del/archive/2008/01/14/1038166.html