listbox内容的复制与删除.
两个Listbox,都可以进行复选.从listbox1选择N条到listbox2显示,并删除listbox1选中的数据
for i:=0 to 30 do
begin
if listbox1.Selected[i] then
listbox2.Items.Add(listbox1.Items[i]);
end;
复制可以,但删除有问题,下面是删除代码,只能删一条,不能删多条
for i:=0 to listbox1.Count-1 do
begin
if listbox1.Selected[i] then
listbox1.Items.Delete(listbox1.ItemIndex);
end;