Delphiクラスとオブジェクト（11）-クラスの前方宣言

// 例1：これは正しい 
  TClassA = class 
    Field1：string ;
    フィールド2：整数;
  終わり;

  TClassB = class 
    Field1：string ;
    フィールド2：整数;
    Field3：TClassA; { Field3のタイプは、新しく定義されたTClassAタイプです} 
  end ;


// 例2：これは間違っています。シーケンスの問題があります 
  TClassA = class 
    Field1：string ;
    フィールド2：整数;
    Field3：TClassB; { Field3のタイプは、定義されるTClassBのタイプです} 
  end ;

  TClassB = class 
    Field1：string ;
    フィールド2：整数;
  終わり;


// 例3：Solution-declare forward 
  TClassB = class ; { declare forward }

  TClassA = class 
    Field1：string ;
    フィールド2：整数;
    フィールド3：TClassB;
  終わり;

  TClassB = class 
    Field1：string ;
    フィールド2：整数;
  終わり;

転載：https : //www.cnblogs.com/del/archive/2008/01/14/1038166.html