社区
Delphi
帖子详情
为什么Assigned(Form2) 不是Nil?
Tronnin
2003-04-18 12:38:19
form2点了叉叉是不是就是free了form2啊?
为什么在mainfrm里还是执行Assigned(form2)=true部分的代码呢?
...全文
76
8
打赏
收藏
为什么Assigned(Form2) 不是Nil?
form2点了叉叉是不是就是free了form2啊? 为什么在mainfrm里还是执行Assigned(form2)=true部分的代码呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Tronnin
2003-04-18
打赏
举报
回复
To songlian77(八國聯軍)
出错:“Access Violation at 0004***** ....."
DainelLee
2003-04-18
打赏
举报
回复
像这样就可以了,
具体为什么我也不是很清楚,不过有可能是
Assigned判定指针,
free、release释放的是资源,可能没有释放指针
{外部接口}
procedure Show_DzlxSet();
begin
if not Assigned(frmDzlxSet) then
frmDzlxSet := tfrmDzlxSet.Create(Application);
try
frmDzlxSet.ShowModal;
finally
frmDzlxSet.Release;
frmDzlxSet := nil;
end;
end;
songlian77
2003-04-18
打赏
举报
回复
你在OnClose的事件里寫上Action := CaFree;
Frend
2003-04-18
打赏
举报
回复
up
ehom
2003-04-18
打赏
举报
回复
释放了占用内存不等于指针就指向了nil
anh
2003-04-18
打赏
举报
回复
同意 boz(波)大利 的说法,
boz
2003-04-18
打赏
举报
回复
OnClose里Action := CaFree;
OnDestory里form2:=nil;
zhang21cnboy
2003-04-18
打赏
举报
回复
我建议你仔细的去看一下书!
我提醒你一下吧!
一个窗体的被释放,意味着那个窗体占用的资源被释放,但是哪个窗体变量
(句柄)并没有释放!
就好比,你申明了一个变量,假如你没有给哪个变量赋值的话,哪个变量仍然从在,只是
没有意义而已,当你是放了一个窗口之后,哪个窗体变量仍然存在,而且它的值并非是
nil(空)!
学过c++的都知道无效指针很让人头疼,这就是个delphi里面无效指针的例子!
Delphi 调用DLL文件中的
FORM
2. **暴露
FORM
到DLL接口**: - 在接口单元中,公开
FORM
类。例如,你可以声明一个类如`TMy
Form
Class : T
Form
`,然后使用`__declspec(dllexport)`关键字来导出这个类(对于Windows平台)。 - 导出一个初始化函数,...
DELPHI把
FORM
编译成DLL的写法.rar
2. 添加
FORM
到DLL: - 在新建的DLL项目中,右键点击"Units"文件夹,选择"Add" -> "New Unit",然后在新的Unit中设计并创建
FORM
。
FORM
是用户界面,包含控件、事件处理等。 3. 编写DLL接口: - 在DLL单元中,定义一...
RAD XE2三种调用BPL中
FORM
的方法
首先,我们来了解什么是BPL中的
FORM
。
FORM
是Delphi中用于创建用户界面的组件,当
FORM
被封装到BPL中时,它成为可动态加载和卸载的模块,能够提高程序的灵活性和可扩展性。 **方法一:通过TComponentClass注册并实例...
XE2调用BPL和DLL方法
if
Assign
ed
(
Form
Class) and (
Form
Class is T
Form
) then begin My
Form
:= T
Form
.Create(
nil
); // 创建窗体实例 try My
Form
.Show; // 显示窗体 // 使用窗体的方法和属性... finally My
Form
.Free; // 销毁窗体...
Delphi使用ADO连接池(存储过程示例)
Form
2: T
Form
2; //数据库服务器 gDBServer: String = '127.0.0.1'; //数据库名称 gDBName: String = 'master'; //数据库用户名 gDBUser: String = 'sa'; //密码 gDBPass: String = '2001'; ...
Delphi
5,939
社区成员
262,944
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章