请教：一段简单程序，请帮我看看！谢谢

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  //
  for i := 0 to TabSheet1.ControlCount - 1 do
  begin
    TabSheet1.Controls[i].Destroy;  //我还尝试了Free
  end;
end;
有问题？

Answer 1

是的，有问题，直接用visible:=false;

Answer 2

http://community.csdn.net/Expert/topic/3417/3417341.xml?temp=.0951044

Answer 3

free 对象的时候建议用free 不要用Destroy，不安全

Answer 4

这个问题已经解决了。
for i := TabSheet1.ControlCount - 1  downto 0 do
资源释放，要用downto来释放。否则报错out of bound。