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

Question

我试图拆分StringList的内容分成多个部分（在Delphi）...
听起来很简单，但我愣神堵塞：○

例如，包含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; 

Answer 2

你可以做手工很轻松地：

var 
    i: Integer; 
    MidIndex, HighIndex: Integer; 
begin 
    MidIndex := SLOne.Count div 2; // Center of first list's items 
    HighIndex := SLOne.Count - 1; // End of first list 

    // Copy from center to end of first list, keeping order 
    // of items intact 
    for i := MidIndex to HighIndex do 
    SLTwo.Append(SLOne[i]); 

    // Go back and remove the ones you just put into the second 
    // list. Go backward to prevent going past the end. 
    for i := HighIndex downto MidIndex do 
    SLOne.Delete(i); 
end;