Delphiで1つのStringListを2つの文字列リストに分割する方法は？

Question

私は（Delphiで）複数の部分にSTRINGLISTコンテンツを分割しようとしている...
は簡単に聞こえるが、私は愚かなブロックされています：

は、例えば、STRINGLISTは1001行が含まれていると私はしたいと思いますoをコンテンツを2つのStringListsに分割します。したがって、1つは500行、もう1つは501行になります。
最初に501と2番目の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;