[结帖]FREE自定义控件报错了**

bsit

现在有1个Panel，name属性是Panel2
我在Panel2上面加了n个label
我想在一个Button 的Click 事件下清除Panel2 上的所有所有Label，代码如下：
if  Panel2.ComponentCount>0 then
begin
         k := Panel2.ComponentCount-1;
          for n := 0 to k do
          begin
               Panel2.Components[n].Free
          end
end;

但是出错了呢~~
我跟踪了一下~：如果我的Panel2上有X 控件，当n累加到X/2的时候报错，说索引超出范围，请问一下~是怎么回事呢？

alang

改成
for n := k downto 0 do
试试

bsit

OK了~~~~3Q

bsit

再问下~不能一次性清除掉所有的控件吗？犹如：PANEL2.Components.FREE这样的？？

alang

不能

jiahaiminghr

楼主，还有问题吗？
没有就结帖了。