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

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;