[已解决]关于DelphiI中ListView删除行的错误

爱你没错

我在程序中添加了一个ListView当里面的数据是>1行是如果我选定删除第一行就会弹出如下错误代码

Delete按钮的代码如下:
procedure Tfmmain.btn_delClick(Sender: TObject);
var
  i:Integer;
begin
  IF lv_mch.Items.Count < 0 THEN  Exit;
  FOR i:=0 TO  lv_mch.Items.Count - 1 DO
  IF lv_mch.Items[i].Selected THEN
    lv_mch.Items.Delete(i);
end;

最佳答案

月排行榜 / 总排行榜

无所谓无的

2015-7-16 13:08:50

····lv_mch.Items.Delete(0);这样写才行  ··如果有3行  第一次 i = 0 删除第一个   那 第二项就跑到第一了   后面的自己想  索引 0 就是全部删除了  他自己也带了清空函数啊·！！Clear

跳转到最佳答案楼层

无所谓无的

····lv_mch.Items.Delete(0);这样写才行  ··如果有3行  第一次 i = 0 删除第一个   那 第二项就跑到第一了   后面的自己想  索引 0 就是全部删除了  他自己也带了清空函数啊·！！Clear

爱你没错

无所谓无的 发表于 2015-7-16 13:08
····lv_mch.Items.Delete(0);这样写才行  ··如果有3行  第一次 i = 0 删除第一个   那 第二项就跑到 ...

改成lv_mch.Items.Delete(0);也还是报同样的错误

123bh

ListView这个控件在delphi那个菜单里

爱你没错

123bh 发表于 2015-8-2 15:16
ListView这个控件在delphi那个菜单里

win32

123bh

多谢

123bh

ListView第一行昵称怎么添加进去的

123bh

那个昵称哪一行怎么加进去的