如何互换listview里的items?

Question

如题，怎样才能在代码中将LISTVIEW中的ITEMS互换位置？谢谢。

Answer 1

var
  lStr :string;
  I:Integer;
begin
  I := ListView1.ItemIndex;
  lStr := ListView1.Items.Item[I].Caption;
  ListView1.Items.Item[I].Caption := ListView1.Items.Item[I-1].Caption;
  ListView1.Items.Item[I-1].Caption := lStr;
end;///没有判断I 是否出界，自行完成

Answer 2

lv: TListView;
...
var
  li: TListItem;
begin
  li := TListItem.Create(lv.Items);
  li.Assign(lv.Items[1]);
  lv.Items[1].Assign(lv.Items[2]);
  lv.Items[2].Assign(li);
  li.Free;
end;

Answer 3

一楼的如果item有object则不能真正的互换。二楼的可以。

Answer 4

see:
http://www.delphipages.cn/dispbbs.asp?BoardID=3&ID=553&replyID=&skin=1