delphi - 如何在Delphi中将一个StringList拆分为两个字符串列表？

我正在尝试将StringList内容拆分为多个部分（在Delphi中）...
听起来很简单，但我被愚蠢地阻止了：o

例如，StringList包含1001行，我想将内容分成2个StringList。因此，一个将具有500行，而另一条将具有501行。
无论第一个是否具有501，第二个是否具有500，反之亦然。

如果有人能以正确的方式推动我...
提前致谢 ！

贝尼

最佳答案

您可以执行以下操作：

for I := SL1.Count - 1 downto (SL1.Count div 2) do
begin
  SL2.Insert(0, SL1[I]);
  SL1.Delete(I);
end;