如何destroy掉一个panel里面的所有子控件？(40分)

Z

zhanglicheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #1

var
i:integer;
begin
for i:=0 to panel1.ControlCount-1 do
panel1.Controls.Destroy;
end;
会报错 list index out of bounds();

 

Y

yansh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #2

是不是从1开始呀

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #3

faint,至少也得
for i:= panel1.ControlCount-1 downto 0 do
...;

同时，这么简单的destroy好像会出问题的。

 

Z

zhanglicheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #4

faint
数组下标改为0就可以了

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #5

begin
while Panel1.ControlCount>0 then
Panel1.Controls[0].Destory;
end;