1)destroy:虚方法
释放内存,在Tobject中声明为virtual,通常是在其子类中override 它,且要加上inherited关键字,才能保证派生类对象正确地被销毁;
但destroy一般不能直接用,为什么?
当一个对象为nil,我们仍然调用destroy,会产生错误。因为destroy是虚方法,它要根据对象中的头四个字节找到虚拟方法表Vmt的入口地址,从而找到destroy的入口地址,所以此时对象一定要存在。但free就是静态方法,它根据对象引用/指针的类型来确定,即使对象本身不存在也不会产生异常,而且在free中有判断对象是否存在的操作,
所以一般的情况下都用Free来释放对象。
2)free:静态方法
测试对象是否为nil, 不为nil则调用destroy。下面是free的Delphi代码:
procedure TObject.Free;
begin
if
Self <> nil then
Destroy;
end;
一静一动,取长补短,岂不妙哉!
但是调用对象的Destroy只是把对象销毁了,但并没有把对象的引用设为nil,这需要程序员来完成,不过自从Delphi5之后,在sysUtils单元中提供了一个freeAndNil。
3)freeAndNil:一个独立的函数,不属于任何对象,非对象方法,非类方法。
procedure FreeAndNil(var Obj);
var
Temp:
TObject;
begin
Temp
:= TObject(Obj);
Pointer(Obj)
:= nil;
Temp.Free;
end;
建议大家用它代替free/Destroy,以便确保正确地释放对象。
4)release:TcustomForm中定义的静态方法。
当窗口中所有的事件处理完之后,才调用free函数。常用在销毁窗口,而在这个窗口中事件处理需要一定的时间的时候,用这个方法能确保窗口事件处理完之后才销毁窗口。
下面是TCustomForm.Release的Delphi源代码:
procedure TCustomForm.Release;
begin
PostMessage(Handle,
CM_RELEASE, 0, 0);
//向窗口发CM_RELEASE消息到消息队列,当所有的窗口事件消息处理完之后,
//再调用CM_RELEASE消息处理过程CMRelease
end;
再看看下面CM_RELEASE消息处理过程CMRelease的定义:
procedure CMRelease(var Message: TMessage); message CM_RELEASE;
procedure TCustomForm.CMRelease;
begin
Free;
//最后还是free;
end;
Delphi中destroy, free, freeAndNil, release用法和区别
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
FastReport 程序员手册
dgmars19841123
2018-08-27 17:38:30
FireMonkey的窗口Handle转为Windows窗口的Handle
newsxy
2018-08-27 17:20:40
Delphi XE6 学习笔记(9)手动填充ListView及ListBox
newsxy
2018-08-27 17:20:19
Delphi与VB有什么区别?
java大豆
2018-08-27 17:20:19
Delphi XE5 将Delphi Code从WinOS 迁移到iOS与Android
newsxy
2018-08-27 17:20:07
保存流 出现错误:[FireDAC][Phys]-329. Cannot generate update query. WHERE condition is empty
newsxy
2018-08-27 17:20:07
用Delphi从内存流中判断图片格式
newsxy
2018-08-27 17:20:04
datasnap的初步
newsxy
2018-08-27 17:20:03
在 Android 的文字编辑控件 (TEdit) 中, 如何按下 Enter 就隐藏虚拟键盘
newsxy
2018-08-27 17:20:03
Thread: DataSnap - detect disgraceful disconnect
newsxy
2018-08-27 17:20:01
Delphi xe 下快捷使用 FastMM 的内存泄露检测功能
newsxy
2018-08-27 17:20:01
Delphi XE7 beta1的新功能之TListView滑动刷新数据功能
newsxy
2018-08-27 17:20:00
Delphi使用AdoQuery调用Mysql存储过程
小白2016plus
2018-08-27 16:38:49
Delphi 发布ActiveX控件 数字签名(转)
小白2016plus
2018-08-27 16:38:49
C#首席设计师Anders Hejlsberg专访
自由的企鹅
2018-08-27 16:01:10