知识大全 Delphi中对象解除技巧

Posted 2022-07-14 知

篇首语：哪里有天才，我是把别人喝咖啡的功夫，都用在工作上的。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中对象解除技巧相关的知识，希望对你有一定的参考价值。

Delphi中对象解除技巧 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在Delphi程序设计中我们需要通过解除建立的所有对象来避免内存泄漏但是如果你在程序中不谨慎小心的话很容易多次解除同一个对象这将会引起很严重的错误造成应用程序崩溃甚至是死机

　　请看下面的程序

procedure TForm Button Click(Sender:TObject);var　Button Button :TButton;begin 　Button :=TButton Create(self); 　Button :=TButton Create(Button ); 　Button Free; 　Button Free;end;

　　在上例中当执行到Button Free时会产生一个错误因为在调用Button Free时 Button 被解除但因为Button 是Button 的宿主 Button 也同时被解除因此错误就不可避免地发生了

　　要避免上述错误有两种方法第一在解除宿主之前要先解除其所属的所有组件这种方法很简单只要将上例中Button Free和Button Free换位即可第二在Button Free执行之前将Button 变量设置为nil 程序如下

Button Free;Button :=nil;Button Free;

　　在上面的程序中将Button 置为nil是为了阻止应用程序重新使用已解除对象的内存在调用Free对象方法时它会确定对象是否为nil 如果不是 Free对象方法会假定对象仍然存在使用对象引用为它分配内存然后调用Destroy释放对象内存并清除任何相关的虚拟对象方法的数据表格信息而Destroy对于有对象存在的内存地址不会做任何改变所以如果在调用Destroy之后测试该内存地址它仍可能有效所以当在程序中两次调用一个对象而没有将对象引用置为nil时对象引用将仍然引用对象解除之前所占用的内存地址这就是产生错误的原因

cha138/Article/program/Delphi/201311/8541