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

Question

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

例如，StringList 包含 1001 行，我想将内容拆分为 2 个 StringList。因此，一个将有 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;