你用的循环是什么,
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
解决方案 »
- c++里的 unsigned char * 与 delphi 里什么类型匹配??
- 给现在为SOCK头疼的人
- 关于使用ClientDataSet查询记录的看法
- help me ! dxdbgrid如何动态对每行颜色进行设置
- 求:群发短消息
- 关于窗体
- 50分征求GDI方面的中文资料!!急~~~~~~~~~谢了!!!
- 【100分】Delphi如何实现打印功能,有这方面的书吗?求书名!
- 数据库中的OLE字段!!!!!!!!!!!!
- delphi在编译器中运行之后会报错,但是在生成的exe文件里面运行就不会报错,用了try except
- TStringList...
- 如何让一个Application成为当前的应用
你还使用dblistbox2.Items[DBListBox2.ItemIndex],当然出错啦!