希望这次20分有满意回答!,关于动态生成Form和释放问题。ccrun等高手快来救命

[donwmufromdying]

平时处理都可以，今天写了一个程序，描述一下：
Form1中动态生成Form2对象，然后，使用完成后释放Form2.
我是在Form1中的一个函数中调用的。如下：
TForm1::func1(int argc)
{
if (Form2==NULL)
Form2=new TForm2(this);
if (Form2!=NULL)
{
Form2->x=10;
Form2->Y=argc;
Form2->AddXY();
Form2->ShowModal();
if (Form2!=NULL)
{
Form2->Close();
delete Form2;
}
}
}
因为这个函数会被反复调用，所以问题就出来了：在第一次调用我但不执行到delete Form2时，发现
Form2指针还是没变成NULL,这样，我第二次再调用该函数func的时候，Form2!=NULL,但是访问Form2却会报错，说内存访问非法了。晕乎中。

[shadowstar]

建议把 Form2 声明为局部变量，每调用就生成一次。

TForm1::func1(int argc)
{
if (Form2==NULL)
Form2=new TForm2(this);
Form2->x=10;
Form2->Y=argc;
Form2->AddXY();
Form2->ShowModal();
delete Form2;
Form2 = NULL;
}

[Friecin]

我虽然看不明白你的这个函数要干什么，但就你说的错误问题，解决办法如下：
TForm1::func1(int argc)
{
if (Form2==NULL)
Form2=new TForm2(this);
if (Form2!=NULL)
{
Form2->x=10;
Form2->Y=argc;
Form2->AddXY();
Form2->ShowModal();
if (Form2!=NULL)
{
Form2->Close();
delete Form2;
Form2 = NULL;
}
}
}

还有，既然你已经用了ShowModal() ，就是说这个窗体显示后，会挂起应用，你为什么加
if (Form2==NULL)
Form2=new TForm2(this);
？？？？？

直接不就可以le :

Form2=new TForm2(this);
Form2->x=10;
Form2->Y=argc;
Form2->AddXY();
Form2->ShowModal();
//Form2->Close();//这句没有意义
delete Form2;

[Friecin]

汗~ 刚才一楼没有人啊！ 怎么我一发贴，就跑二楼了？？

[donwmufromdying]

hehe 多谢各位,我看了相关帮助，在delete后面增加了手工设置为NULL的语句。
我发现delete如果成功的话不会自动设置该指针为NULL,不成功倒是会throw一个异常。
多谢各位。我再等等看看是否有其他的回答。然后给分

[Friecin]

没了！结了吧！

[donwmufromdying]

明天结

[kwokwinglau]

很明显,就是加=NULL.是要手动置的.

[FengSC]

赶在给分前接点分：
TForm1::func1(int argc)
{
if (Form2==NULL)
Form2=new TForm2(this);
if (Form2!=NULL)
{
Form2->x=10;
Form2->Y=argc;
Form2->AddXY();
Form2->ShowModal();
Form2->Close();
delete Form2;
Form2 = NULL;
}
}

[netying]

好

[wdhans]

with TForm2.Create(nil) do
begin
try
x := ... //x 是外部可以访问的变量
ShowModal;
finally
Free;
end;
end;