Classes et objets Delphi (11) - déclaration des classes

// Exemple 1: c'est correct 
  TClassA = classe 
    Field1: string ; 
    Field2: Integer; 
  end ; 

  TClassB = class 
    Field1: string ; 
    Field2: Integer; 
    Field3: TClassA; { Le type de champ Field3 est le type TClassA nouvellement défini } 
  end ; 


// Exemple 2: c'est faux, il y a un problème de séquence 
  TClassA = classe 
    Field1: string ; 
    Field2: Integer; 
    Field3: TClassB; { Le type de Field3 est le type de TClassB à définir } 
  end ; 

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


// Exemple 3: Déclaration de solution vers l'avant 
  TClassB = class ; { forward declaration } 

  TClassA = class 
    Field1: string ; 
    Field2: Integer; 
    Field3: TClassB; 
  end ; 

  TClassB = classe 
    Field1: chaîne ; 
    Field2: entier; 
  fin ;

Réimprimé: https://www.cnblogs.com/del/archive/2008/01/14/1038166.html