如何把一个ListView中选中复选框的记录加到另一个ListView中？

Question

窗体中有两个ListView和一个Botton，如何实现当点击按钮的时候，把ListView1中选中复选框的记录加到ListView2中并将其从ListView1中删除。先谢谢大家了。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Item: TListItem;
begin
  for i := ListView1.Items.Count - 1 downto 0 do begin
    if ListView1.Items[i].Checked then begin
      Item := ListView1.Items[i];
      with ListView2.Items.Add do begin
        Caption := Item.Caption;
        SubItems.AddStrings(Item.SubItems);
      end;
      Item.Delete;
    end;
  end;
end;

Answer 2

//按原顺序移动
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
  Item: TListItem;
begin
  j:=ListView2.Items.Count;
  for i := ListView1.Items.Count - 1 downto 0 do begin
    if ListView1.Items[i].Checked then begin
      Item := ListView1.Items[i];
      with ListView2.Items.Insert(j) do begin
        Caption := Item.Caption;
        SubItems.AddStrings(Item.SubItems);
      end;
      Item.Delete;
    end;
  end;
end;