如何把一个LISTVIEW里的n条ITEM添加到另一个LISTVIEW中?

Question

如题

Answer 1

var
i:integer;
begin
     listbox2.Items.Clear;
 for i:=0 to listbox1.Items.Count-1 do
     begin
     if listbox1.Selected[i] then
     begin
     listbox2.Items.Add(listbox1.Items.Strings[i]);
     end;
     end;end;

Answer 2

procedure TForm4.ListBox1DblClick(Sender: TObject);
var
i:integer;
move :boolean;
begin
 move:=true;
for i:=0 to listbox2.Items.Count-1 do
     begin
      if listbox2.Items.Strings[i]=listbox1.Items.Strings[listbox1.ItemIndex] then
          begin
          move:=False;
          break;
          end;
     end;
if move then
begin
listbox2.Items.Add(listbox1.Items.Strings[listbox1.ItemIndex]);
end;
end;

Answer 3

这样如下将listview1的3条item添加到listview2中
var
  i : integer;
begin
    for i:= 0 to 2 do  begin
      Listview2.AddItem('',nil);
      Listview2.Items[i] := Listview1.Items[i];
      end;
end;

Answer 4

var
  ItemNum,I : integer;
  Lvshow : TlistItem;
begin
  ItemNum:=listview1.items.count;
  for I:=0 to ItemNum-1 do
  begin
    Lvshow:=listview2.items.add;
    Lvshow.caption:=listview1.items[i].caption;
    Lvshow.Subitem.add(listview1.items[i].subitem[0]);
              .
              .
              .
   //把listview1的列值加到listview2中
  end;
end;

Answer 5

这样如下将listview1的3条item添加到listview2中
var
  i : integer;
begin
    for i:= 0 to 2 do  begin
      Listview2.AddItem('',nil);
      Listview2.Items[i].Assign(Listview1.Items[i]);
      end;
end;

Answer 6

TO 407107()
Listview2.AddItem('',nil);
中的AddItem是什么意思？

Answer 7

如果是针对 Listview1 中所选择的多条记录 ，将其传到 Listview2 中, 以下这种方法效率比较高。 建意使用，大家有更好的想法可以贴出来   while Listview1.SelCount>0 do
   Begin
      With Listview2.Items.Add DO
      Begin
      Caption := Listview1.Selected.Caption;
      SubItems.Add(Listview1.Selected.SubItems[0]);
      End;
      Listview1.Selected.Delete;
   End;