procedure Tmainform.Image1Click(Sender: TObject);
var
mon:Tform;
begin
try
mon:=Tyuedutongji.Create(self);
mon.ShowModal;
finally
mon.Free;//在这里Warning,为什么啊?
end;谢谢
var
mon:Tform;
begin
try
mon:=Tyuedutongji.Create(self);
mon.ShowModal;
finally
mon.Free;//在这里Warning,为什么啊?
end;谢谢
解决方案 »
- 新手急求多线程解决方案。送上50分!
- 请问有没有判断一个BMP图片中的某个点是否为白色的函数?必须自己写代码来比较该像素的RGB三个数组中的值吗?
- delphi5/6开发的程序,在delphi7下无法编辑打印报表部分
- 深圳招delphi程序员
- exe里运行正常,BPL里不正常。2者区别在哪里?
- 谁能帮小弟,解释ShellExecute参数的意思??
- 我用Delphi编的程序 win2000或xp下切换输入法速度奇慢(98下没有这个情况)
- 寻求一个控件!
- TeeChart Pro 手工画出短线的标注 及Teechart 打印
- 睡一场觉醒来,问题不见了.小笨猫再次紧急再求救: 有关ini文件的错!
- 关于用DBGrid去修改Oracle数据的问题,请高手帮帮忙啊
- DLL问题:输入一个参数,返回一个窗体!
var
mon:Tform;
begin
try
mon:=Tyuedutongji.Create(self); ///1
mon.ShowModal;
finally
;//在这里Warning,为什么啊?
end;如果1处创建失败,
mon.Free就会出错
var
mon:Tform;
begin
mon:=Tyuedutongji.Create(self);
try
mon.ShowModal;
finally
mon.Free;//在这里Warning,为什么啊?
end;
var
mon:Tform;
begin
mon:=Tyuedutongji.Create(self);
try
mon.ShowModal;
finally
mon.Free;//只有创建成功了才能free
end;
楼上这个就对了。
var
mon:Tform;
begin
try
mon:=Tyuedutongji.Create(self);
mon.ShowModal;
mon.Free;//只有创建成功了才能free
finally
end;
var
mon:Tform;
begin
try
mon:=Tyuedutongji.Create(self);
mon.ShowModal;
finally
mon.Free;//在这里Warning,为什么啊?
end;在try..finally..end
句子中,无论如何会执行finally后面的语句,
如果try后面的mon:=Tyuedutongji.Create(self);没有创建成功,
如何做到mon.Free?所以Delphi就告诉你要小心!! meiqingsong(阿飛) 对:
procedure Tmainform.Image1Click(Sender: TObject);
var
mon:Tform;
begin
mon:=Tyuedutongji.Create(self);
try
mon.ShowModal;
finally
mon.Free;//在这里Warning,为什么啊?
end;
end;