for i:=ListView1.Items.Count-1 downto 0 do
if ListView1.Items.Item[i].Selected=True then
begin
ListView1.Items.Delete[i];
end;
if ListView1.Items.Item[i].Selected=True then
begin
ListView1.Items.Delete[i];
end;
解决方案 »
- DsPack FilterGraph 断点续播
- 高分求2000 VPN拨号,关闭代码!
- 请问获取一个字符的ASCII码值的函数名称是什么?
- delphi中访问oracle数据库,不安装oracle client,要怎么做?
- delphi中的小问题-----无奈?
- 写了一个简单的midas程序,server与client分别放在两台机上,老是说拒绝访问!!把ip指向本机就没问题,why?
- ClientSocket控件中,address属性和host属性有什么区别?
- 怎样才能充分利用数据感应控件??
- 求购一个OO方法编程的实例!
- api函数问题?
- 诚心求助,保证送分
- 求一个控件相对于 屏幕 的坐标的 api 函数叫什么名来着....??
for i:=0 to j do
befin
if ListView1.Items.Item[i].Selected=True then
begin
ListView1.Items.Delete[i];
j:=j-1;
end;
end