动态创建多个控件,在释放控件时产生错误'List index out of bounds(4)',高手请进来看看!

Question

在Panel动态创建了20个控件,比如释放到第12个就产生了以上这样的错误,不知道什么原因?
  请各位帮帮忙!

Answer 1

for I:=0 to ControlList.Count-1 do begin
  TControl(ControlList[I]).Free;
end;
ControlList.Free;或者：
for I:=ControlList.Count-1 downto 0 do begin
  TControl(ControlList[I]).Free;
  ControlList.Delete(I);
end;

Answer 2

代码如下:
    for i:= 0 to Panel1.ControlCount - 1 do
    begin
      if (Panel1.Controls[i].ClassType = TLabel) then
        Panel1.Controls[i].Free
      else
        Continue;
     end;

Answer 3

错了，不能这样写，因为随着释放Panel.ControlCount会减少，释放到后来就越界了！    for i:= 0 to Panel1.ControlCount - 1 do
    begin
      if (Panel1.Controls[i].ClassType = TLabel) then
        Panel1.Controls[i].Free
      else
        Continue;
     end;
这样试试：
   count := Panel1.ControlCount;
   for i:= count - 1 downto 0 do
   begin
      if (Panel1.Controls[i].ClassType = TLabel) then
          Panel1.Controls[i].Free
   end;

Answer 4

或者这样写也行。
var count:integer;
var i:integer;
count:=panel1.ControlCount;
for i:=0 to count do
begin
  if panel1.controls[i].classtype=TLabel then
     Panel1.Controls[i].Free
  count:=panel1.ControlCount;
end;

Answer 5

那是一个越界错误
同意Voidest(白乌鸦)的写法

Answer 6

同意Voidest(白乌鸦)的写法。
一致通过！

Answer 7

同意Voidest(白乌鸦)的写法，
你在调试的时候跟踪看一下就知道了！