＋设为首页 ＋添加到收藏夹
请问这段方法为什么会错？有办法只用listbox1.Items.Delete(i);而不用listbox1.Clear;吗？？？
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.items.count-1 do
begin
listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ；
listbox1.Items.Delete(i); // listbox2减一；
end;
end;
for i:=listbox1.items.count-1 downto 0 do
begin
listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ；
listbox1.Items.Delete(i); // listbox2减一；
end;
你没觉得你原来的item.count随着listbox1.Items.Delete(i);的执行而变化了吗？
