倒过来删除。山了项,计数器可没变。for i:=max to min do
begin
if listbox1.Selected[i] then
listbox1.Items.Delete(i);
end
begin
if listbox1.Selected[i] then
listbox1.Items.Delete(i);
end
解决方案 »
- 大家帮我看看这段代码,谢谢。
- 求个有MD5加密的用户登陆实例
- [讨论/基本功] 参数传递的不同方式。
- 菜鸟第一次上CSDN,提问的第一个问题,请大家支持一下啊!在线等
- 如何调用C++写的动态链接库.dll
- 程序发布问题,大哥大姐来帮忙呀
- 用Dephi 7编写的 DLL 在Window 中无法添加新元件?
- dephi跳转指令是什么的??比如掉转到指定位置??
- 高分求教,在delphi中如何用TServerSocket控件的多线程阻塞?
- 请教各位高手,有关mscomm32和MODEM通讯的问题!!!!
- 谁知道类似于OICQ的快捷键(alt+ctrl+z)的功能是如何实现的???
- 一个非常奇怪的现象
begin
end;
你应该这样写
i:=0;
while listbox1.selcount>0
begin
if listbox1.Selected[i] then
listbox1.Items.Delete(i);
i++;
end;