Listview中行之间的上下移动

1. procedure TForm1.N5Click(Sender: TObject);
2.   var
3.       idex:   Integer;
4.       TmpList1,   TmpList2,   TmpupList:   TListItem;
5.   begin   
6.       TmpList1   :=   lv2.Selected;
7.       if   TmpList1   =   nil   then   Exit;   
8.       idex   :=   TmpList1.Index;   
9.       if   idex   =   0   then   Exit;
10.       TmpList2   :=   lv2.Items[idex   -   1];
11.       lv2.Items.BeginUpdate;   
12.       try   
13.           TmpupList   :=   lv2.Items.Add;
14.           TmpupList.Assign(TmpList1);
15.           TmpList1.Assign(TmpList2);
16.           TmpList2.Assign(TmpupList);
17.           TmpList2.Selected   :=   True;
18.           lv2.SetFocus;
19.       finally
20.           TmpupList.Delete;
21.           lv2.Items.EndUpdate;
22.       end;       
23.   end;
26. procedure TForm1.N6Click(Sender: TObject);
27.   var
28.       idex,   iCount:   Integer;   
29.       TmpList1,   TmpList2,   TmpdwList:   TListItem;   
30.   begin
31.       TmpList1   :=   lv2.Selected;
32.       if   TmpList1   =   nil   then   Exit;
33.       idex   :=   TmpList1.Index;   
34.       iCount   :=   lv2.Items.Count   -   1;
35.       if   idex   =   iCount   then   Exit;   
36.       TmpList2   :=   lv2.Items[idex   +   1];
37.       lv2.Items.BeginUpdate;
38.       try   
39.           TmpdwList   :=   lv2.Items.Add;
40.           TmpdwList.Assign(TmpList1);
41.           TmpList1.Assign(TmpList2);
42.           TmpList2.Assign(TmpdwList);
43.           TmpList2.Selected   :=   True;
44.           lv2.SetFocus;
45.       finally
46.           TmpdwList.Delete;
47.           lv2.Items.EndUpdate;
48.       end;
49.   end;