Listview實現內容行上移、下移的移動功能

Listview實現行移動功能，類似排序功能，在Delphi的ListVIEw中實現數據的上移或下移功能，向上移動或者向下移動某行，在Delphi中的實現代碼如下：

vIEw source print? 01 procedure TForm1.ExchangeItem(lv: TListVIEw; const iFrom, iTo: Integer); 02 var 03   tempItem: TListItem; 04 begin 05   if iFrom = iTo then Exit;  06   if (iTo < 0) or (iTo >= lv.Items.Count) then Exit; 07    08   lv.Items.BeginUpdate; 09   try 10     tempItem := TListItem.Create(lv.Items); 11     tempItem.Assign(lv.Items.Item[iFrom]); 12     lv.Items.Item[iFrom].Assign(lv.Items.Item[iTo]); 13     lv.Items.Item[iTo].Assign(tempItem); 14     lv.ItemIndex := lv.Items[iTo].Index; 15     tempItem.Free; 16   finally 17     lv.Items.EndUpdate 18   end; 19 end; 20    21 procedure TForm1.btnMoveDownClick(Sender: TObject); 22 begin 23   ExchangeItem(lvSE, lvSE.Selected.Index,  lvSE.Selected.Index + 1); 24 end; 25    26 procedure TForm1.btnMoveUpClick(Sender: TObject); 27 begin 28   ExchangeItem(lvSE, lvSE.Selected.Index,  lvSE.Selected.Index - 1); 29 end;