如何声明交叉引用的类类型？

Question

我尝试在 Delphi 中构建一个类系统。 TFieldSpec 和 TTableSpec 类通过对象属性相互引用。

type
  TFieldSpec=class(Tobject)
  private
    FTableSpec : TTableSpec;
  public
    property TableSpec : TTableSpec read FTableSpec;
  end;

  TTableSpec=class(Tobject)
  private
    FFields : array[1..100] of TFieldSpec;
  end;

当我编译这个时，我得到这个错误：

[Error] Objects.pas(66): Undeclared identifier: 'TTableSpec'

如何构造这些类类型？

Answer 1

你应该使用TTableSpec的前向声明：

type
  TTableSpec = class;

  TFieldSpec=class(Tobject)
  private
    ..
    FTableSpec : TTableSpec;
    ..
  end;

  TTableSpec=class(Tobject)
  private
    FName : string;
    ..
  end;