delphi - 如何在一条语句中将 ListBox 中的对象分配给 ArrayList？

Question

在 Delphi Prism 中，我需要在单个语句中将 ListBox 中的对象集合分配给 ArrayList。到目前为止我还没有找到任何解决方案。

在 Delphi 中，我就是这样做的。

theUser.Groups.Assign(ListBox1.Items);

Groups 在 Delphi 中是 TList，在 Delphi Prism 中是 ArrayList。当我尝试在 delphi prism 中执行相同操作时，它给出了以下错误。

“Groups.TGroupList”不包含表达式“theUser.groups.Assign”中“Assign”的定义

如果 ArrayList 没有接受对象集合的方法，那么我将必须循环遍历 ListBox 项中的每个对象并将其添加到 ArrayList。

你会怎么做？

提前致谢。

Answer 1

未经测试:

theUser.Groups.AddRange(ListBox1.Items)

ArrayList.AddRange 接受 ListBox.ObjectCollection 实现的 ICollection 接口(interface)。

另请参阅:

http://msdn.microsoft.com/en-us/library/system.windows.forms.listbox.objectcollection.aspx

http://msdn.microsoft.com/en-us/library/system.collections.arraylist.addrange(VS.71).aspx