//很菜的一个问题(10分)

H

hurryman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #1

procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to listbox1.Items.Count-1 do
begin
if listbox1.Selected then
listbox1.Items.Delete(i);
end;
end;
//为什么不能删除，而且老提示越界

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #2

listbox1.Items.clear

 

H

hurryman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #3

老兄：
谢谢
listbox1.Items.Delete(i);
我是要删除我所选的那个呀

 

C

cdkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #4

procedure TForm1.ListBox1Click(Sender: TObject);
var i,j:integer;
begin
j:=listbox1.Items.Count-1;
for i:=j downto 0 do
begin
if listbox1.Selected then
listbox1.Items.Delete(i);
end;
end;
因为listbox1.Items.Count随着你的删除是一直在变小的

 

H

hurryman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #5

多人接受答案了。