窗体问题,急急急急急急急急急急!!!!

Question

我说的是:打开一个窗体，已经创建的窗体全部释放掉(判断窗体是否创建),我估计得用一个for循环
判断哪些窗体是否创建,就是不知代码怎么写  类似与: for i:=0 to componentcount-1 do

Answer 1

for i:=application.componentcount-1 downto 0 do
  if (application.components[i] is TForm)
      and (application.components[i]<>application.Mainform)  //不是主窗体
    then application.components[i].free;
释放主窗体程序会结束