奇怪的问题,向高手求救 ( 积分: 20 )

  • 主题发起人 主题发起人 scansoft
  • 开始时间 开始时间
S

scansoft

Unregistered / Unconfirmed
GUEST, unregistred user!
try
if ListView1.Columns.Count > 0 then
begin
for j:=ListView1.Columns.Count-1 downto 0 Do
ListView1.Columns.Delete(j);
end;
if ListView1.Items.Count > 0 then
begin
for i:=ListView1.Items.Count-1 downto 0 Do
ListView1.Items.Item.Delete();
end; //删除当前选中行
except
ShowMessage('清除信息失败!请重试!');
end;

运行到这,就报错:exception class elisterror with message 'list index out of bounds(0)'
帮个忙啊!帮我看看怎么回事?
 
你的代码没有错误,我测试过了的,我用的是D7
 
先删除 items, 然后删除 columns, 没有columns, items是没地方放的吧.
 
确定是这里的错误吗?好像没有问题啊
 
先删除行,再删除列
 
iCount := ListView1.Items.Count
for i:= 0 to iCount - 1 Do
ListView1.Items.Item[0].Delete();
试一下这段代码,应该可以,你删掉一个后,ListView1.Items.Count 的值已经改变了
每次只删第一个
 
谢谢各位的帮助,非常感谢!

duhai_lee和ghtmhy说的对,换一下位置就可以了,谢谢!

小弟没分了,就算意思一下吧,马上结帐!
 
多人接受答案了。
 
后退
顶部