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

Question

我正在尝试将一个StringList内容分成多个部分(在Delphi中)...
听起来很简单,但我被愚蠢地阻止:o

例如,StringList包含1001行,我想将内容拆分为2个StringLists.因此,一个将有500行,另一个将有501行.
无论第一个是501还是第二个500,反之亦然.

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

贝尼

Answer 1

你可以这样做:

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