你用的循环是什么,
for i:=0 to listbox1.items.count-1 do begin
listbox1.ItemIndex := i;
if listbox1.SelCount = 0 then exit;
if listbox1.Selected[listbox1.itemindex] then begin
listbox2.items.add(listbox1.Items.Strings[listbox1.itemindex]);
listbox1.Items.Delete(listbox1.ItemIndex); end
end
for i:=0 to listbox1.items.count-1 do begin
listbox1.ItemIndex := i;
if listbox1.SelCount = 0 then exit;
if listbox1.Selected[listbox1.itemindex] then begin
listbox2.items.add(listbox1.Items.Strings[listbox1.itemindex]);
listbox1.Items.Delete(listbox1.ItemIndex); end
end
你还使用dblistbox2.Items[DBListBox2.ItemIndex],当然出错啦!