当我用listbox1.items.delete(i)删除一行后，出现"list index out of bound(n)",n是一个整数，请问这是为什么，该

X

xy_c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #1

当我用listbox1.items.delete(i)删除一行后，出现"list index out of bound",n是一个整数，请问这是为什么，该如何解决？谢谢！(30分)<br />null

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #2

从后往前删除，或者……
法1：
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := ListBox1.Items.Count - 1 downto 0 do
begin
ListBox1.Items.Delete(i);
end;
end;

法2：
while ListBox1.Items.Count &gt; 0 do
begin
ListBox1.Items.Delete(0);
end;

 

X

xy_c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #3

我是说当我删除其中任一行时，就出上面的错误。不是删除全部

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #4

先检查那一个 i 的存在

如果删除全部，就删除第一个就可以了
for I := 0 to List.Count - 1 do begin
List.Delete(0);
end;

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #5

i是不是大于listbox1.items.count呵！
數組越界了！

 

C

chrisfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #6

把代码帖出来把！

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #7

i越界，设个断点看看i的值是多少。

 

G

glbboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #8

应该是i&gt;Listbox1.items.count所以出现了那错

 

吴

吴下阿蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #9

同意 yzhshi 从最大的数字开始删

 

G

gzllich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #10

ListBox有一个MultiSelect属性，你把它设它True就可以了，
如果还不行的话，就你的代码有问题了

 

L

lyq2276959

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #11

yzhshi的正确，这个问题我也遇到，也是这样解决。

 

H

huntor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #12

删除前判断一下
if( i &lt; ListBox1.items.count ) then listbox1.items.delete(i);

i不能大等于count的值。

 

X

xuhuizhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #13

我有过类似经历,可能问题不出在这里,而是在listview中的change或其它事件中调用了listview的属性或内容,一旦作删除操作,当前值则变为空,
只需在该事件中写入一个条件判断即可,例:
procedure Tright.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
if listview1.Selected&lt;&gt;nil then
StatusBar1.Panels[1].Text:=listview1.Selected.Caption;
end;