如何在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;