复制所有选定的项目从ListView1的到ListView2 [英] Copy all selected items from ListView1 to ListView2

问题描述

如何复制从TListView的另一个多个项目。现在即时通讯做这样的：

How to copy multiple items from TListView to another. Right now im doing it like this:

procedure TForm1.CopyToRightClick(Sender: TObject);
var
  selected: TListItem;
  addItems: TListItem;
begin
  saveChanges.Visible := false;
  selected := deviceList.Selected;
  addItems := selectedDevicesList.Items.Add;
  addItems.Assign(selected);
end;

不过这样一来只有一个选择的项目被复制。有没有一种方法来复制所有选定的项目？

But this way only one selected item get copied. Is there a way to copy all selected items?

推荐答案

您可以做

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  ListView2.Items.BeginUpdate;
  for i := 0 to ListView1.Items.Count - 1 do
    if ListView1.Items[i].Selected then
      ListView2.Items.Add.Assign(ListView1.Items[i]);
  ListView2.Items.EndUpdate;
end;

到复制的在 ListView1的每一个选择列表视图项 ListView2 。

to copy every selected list view item in ListView1 to ListView2.

您可以做

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  ListView1.Items.BeginUpdate;
  ListView2.Items.BeginUpdate;
  for i := ListView1.Items.Count - 1 downto 0 do
    if ListView1.Items[i].Selected then
    begin
      ListView2.Items.Add.Assign(ListView1.Items[i]);
      ListView1.Items[i].Delete;
    end;
  ListView2.Items.EndUpdate;
  ListView1.Items.EndUpdate;
end;

到移动的在 ListView1的每一个选择列表视图项 ListView2 。

to move every selected list view item in ListView1 to ListView2.

这篇关于复制所有选定的项目从ListView1的到ListView2的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！