TList.Move 將指定索引元素移至新索引 (其他元素平移),Exchange 交換兩索引元素。
procedure TForm1.Button1Click(Sender: TObject);
var List: TList; b: Byte; str: string;
begin
List := TList.Create; List.AddRange([11,22,33,44]);
List.Move(1, 2); // 索引 1 (22) 移至索引 2 → 11 33 22 44
str := ''; for b in List do str := str + IntToStr(b) + ' '; ShowMessage(str);
List.Exchange(0, 3); // 交換索引 0 與 3 → 44 33 22 11
str := ''; for b in List do str := str + IntToStr(b) + ' '; ShowMessage(str);
List.Free;
end;
Move(CurIndex, NewIndex):將 CurIndex 元素移至 NewIndex,原位置後元素前移或前元素後移填補。CurIndex < NewIndex,實際插入位置為 NewIndex - 1 (因移除後索引左移)。