tcp通信，delphi6错'list index out of bounds’

Question

详细程序请参考
http://community.csdn.net/Expert/topic/5150/5150838.xml?temp=.9757807和
http://community.csdn.net/Expert/topic/5150/5150847.xml?temp=.8425104，我在上面多添加了个踢人功能就又报错了
踢人的事件中加入了，我刚刚都把可能出错的屏蔽成这样了他还报错'list  index  out  of  bounds’
procedure TForm1.kickbtnClick(Sender: TObject);
begin
 // if listview1.ItemIndex<>-1 then
    //begin
      listview1.Items.Delete(listview1.ItemIndex);
    //end;
end;
索要具体程序的可以留下信箱我发给你

Answer 1

当listview中,没有选择一个项时,listview1.ItemIndex = -1;而listview1.Items.Delete(-1);是会报错的;所以不能去掉注释,还是应该这样:if listview1.ItemIndex >-1 then
begin
   listview1.Items.Delete(listview1.ItemIndex);
end;但'list  index  out  of  bounds’,不是这个原因引起的,要查查别的地方

Answer 2

原则:listview1.Items.Delete(-1);是会报错的;要删除一个ListItem,就要指定它的index,>>原文的意思是对于服务器不欢迎或已离开的用户进行删除处理，那已离开的不是-1么？离开的用户,如果它的index是0,那listview1.Items.Delete(0);就是删除这个用户-1,并不代表离开的,

Answer 3

终于弄明白'list    index    out    of    bounds’问题了，就是上次你给我改的才对，我那么改又错了，真不明白，我那么改了运行时几天都没报错，改回来就又对了，但是端口看不全的问题又回来，真怀疑是不是delphi6存心逗我玩，一会可以一会又不可以，老大我发给你再用你的delphi7帮我编编看看

Answer 4

我跳！我跳！重起了一下机子，实验5次。结果：第1，4次端口全认，全正常，第2，3，5次后面的不认，郁闷delphi6这不是涮人玩么。结帖结贴