如何在DWScript中注册两个具有循环引用的类？

Question

我需要注册TCollection和TCollectionItem类，但由于

{TCollection}
property Items [Index: Integer]: TCollectionItem
{TCollectionItem}
property Collection: TCollection

с会立即抛出无法找到TCollectionItem/TCollectionItem类型的异常。

Answer 1

如果您在代码中注册自己的类，您可以首先注册TCollectionItem而不注册property Collection: TCollection，然后使用property Items [Index: Integer]: TCollectionItem注册TCollection，然后将property Collection: TCollection添加到您的TCollectionItem中。

Answer 2

您可以使用：

type
  TCollection = class;

  TCollectionItem = class
  published
    property Items: TCollection;
  end;

  TCollection = class
  published
    property Items [Index: Integer]: TCollectionItem;
  end;