Как разбить один StringList на два строковых списка в Delphi?

Question

Я пытаюсь разделить содержимое StringList на несколько частей (в Delphi) ...
Звучит просто, но я тупо заблокирован: о

Например, StringList содержит 1001 строк, и я хотел бы Разделите содержимое на 2 StringLists. Таким образом, у каждого будет 500 строк, а у другого будет 501 строка.
Независимо от того, имеют ли первые 501 и вторую 500, или наоборот.

Если кто-то может подтолкнуть меня по правильному пути ...
Заранее благодарим!

Beny

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;