动态控件的释放问题

Question

假设你所建立的控件所在的容器名为gb,则如下
var
  connum:integer;
begin
  if gb.ControlCount=0 then exit;
  //下面的控制一定要从大到小循环，因为每释放一个控件，
  //则总数会少一，这样就会因控件的索引号变小而出现错误．
  for connum:=gb.ControlCount-1 downto 0  do
     begin
        gb.Controls[connum].Free;
     end;

Answer 1

那所有你建过的speedbutton,存入一个tobject数组中,如 obj[]
释放时:
for i:=0 to count-1 do
freeandnil(Tspeedbutton(obj[i]));