如何动态销毁panel上的组件

[lcn8011]

请教，我在panel上动态创建了一组tspeedbutton按钮组件，现在需要动态释放，代码如下：
for i:=0 to Pnl3.Componentcount-1 do
begin
if pnl3.Components[i] is TSpeedButton then
begin
pnl3.Components[i].free;

end;
end；
执行后，组件确实是销毁了，但是老是报错：

[de410]

报什么错误？

[dahai9825]

销毁的时候出错?参考
try
for i:=0 to Pnl3.Componentcount-1 do
begin
if pnl3.Components[i] is TSpeedButton then
begin
pnl3.Components[i].free;
pnl3.Components[i]:=nil;
end;
end；
except
end;

[Harryfin]

  for i:=Pnl3.Componentcount-1 downto 0 do 
  begin 
    if pnl3.Components[i] is TSpeedButton then 
      RemoveComponent(pnl3.Components[i]);
  end；

[dinoalex]

因为count变了

for i:=0 to Pnl3.Componentcount-1 do
begin
if pnl3.Components[i] is TSpeedButton then
begin
pnl3.Components[i].free;
i:=0; // <------------多加一句
end;
end；

[风之谷]

楼上正解

[dahai9825]

哎呀 看蒙了 - -||

[lcn8011]

奇怪了，我测试了下，发现取出来的Pnl3.Componentcount 是0 怎么会呢？

[火龙岛主]

while Pnl3.Componentcount >0 do
begin
 if pnl3.Components[0] is TSpeedButton then 
    FreeAndNil(pnl3.Components[0])
//或者 RemoveComponent(pnl3.Components[0])
end;

[lcn8011]

问题解决了，原来是count值变了，所以出了问题。谢谢各位提示！