하나의 StringList를 Delphi에서 두 개의 문자열 목록으로 분할하는 방법은 무엇입니까?

Question

내가 (델파이에서) 여러 부분으로 StringList 컨텐츠를 분할하기 위해 노력하고있어 ...
쉽게 소리 그러나 나는 바보 차단 해요 :

는 예를 들어, StringList 1001 선을 포함하고 내가 싶습니다 O를 내용을 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;