德尔福中的通用容器

Question

我正在尝试这样做：

   type
      TItemRec = record
        Sender    : TAction;
        OwnerPack : HModule;
        ChildForm : TForm;
      end;
      TRecList = TList<TItemRec>;

      THelperList = class helper for TRecList
        function FindSenderIndex(ASender: TAction): Int16;
      end;
   var
      MyObj : TRecList;

其中 FindSenderIndex 函数（仍然实现它）将返回 ASender 与 MyObj[i].Sender< 匹配的项目的索引/强>。但是在编译时我收到此错误消息：“E2086 Type 'TList'”尚未完全定义”

我做错了什么？提前致谢。

Pdta：您能给我一些关于如何使用对象容器(TObjectList=class(TList))的好例子吗？

Answer 1

这看起来像是编译器中的错误。我可以在 Delphi 2010 下重现这一点。请在 QC 中报告。

不过，解决方法很简单。 相反，声明

TRecList = class(TList<TItemRec>);

一下，它就起作用了。

至于 TObjectList，它与 TList 完全相同，只是它只接受对象，并且添加了 OwnsObjects 属性。如果 OwnsObjects 设置为 True，那么当您释放列表或调用 Clear 或 Delete 方法时，它将释放从列表中删除的所有对象。