delphi - 将 ListBox 中的字符串转换为 List

Question

TListBox 组件包含一组行(字符串)。如何将此集合作为列表 TList 获取？下面的代码示例没有给出所需的结果。 (代码无法编译)

MyList  := TList<String>.Create(MyListBox);
MyList  := TList<String>.Create(MyListBox.Items);
MyList  := TList<String>.Create(MyListBox.Items.ToStringArray);

是否可以在不使用循环的情况下做到这一点？谢谢!

Answer 1

你可以这样做:

MyList := TList<string>.Create;
try
  MyList.AddRange(MyListBox.Items.ToStringArray);
  ....
finally
  MyList.Free;
end;

如果您想在构造函数中分配项目，您需要 TEnumerable<string> 的实例。这并不容易移植到 TStrings从外部。所以我认为上面的代码可能是最干净的。