Delphi中对象解除技巧_Delphi

  • 内容
  • 评论
  • 相关

 在Delphi程序设计中,我们需要通过解除建立的所有对象来避免内存泄
漏。但是,如果你在程序中不谨慎小心的话,很容易多次解除同一个对象,
这将会引起很严重的错误,造成应用程序崩溃,甚至是死机。
  请看下面的程序:
  procedure TForm1.Button1Click(Sender:TObject);
  var
   Button2,Button3:TButton;
  begin
   Button2:=TButton.Create(self);
   Button3:=TButton.Create(Button2);

http://www.gaodaima.com/65586.htmlDelphi中对象解除技巧_Delphi

   Button2.Free;
   Button3.Free;
  end;
  在上例中,当执行到Button3.Free时会产生一个错误,因为在调用
Button2.Free时,Button2被解除,但因为Button2是Button3的宿主,Button3
也同时被解除,因此错误就不可避免地发生了。
  要避免上述错误,有两种方法:第一,在解除宿主之前要先解除其所属的
所有组件。这种方法很简单,只要将上例中Button2.Free和Button3.Free换位
即可。第二,在Button3.Free执行之前将Button3变量设置为nil。程序如下:
  Button2.Free;
  Button3:=nil;
  Button3.Free;
  在上面的程序中,将Button3置为nil是为了阻止应用程序重新使用已解除
对象的内存。在调用Free对象方法时,它会确定对象是否为nil,如果不是,
Free对象方法会假定对象仍然存在,使用对象引用为它分配内存,然后调用
Destroy释放对象内存,并清除任何相关的虚拟对象方法的数据表格信息。而
Destroy对于有对象存在的内存地址不会做任何改变,所以如果在调用Destroy
之后测试该内存地址,它仍可能有效。所以当在程序中两次调用一个对象而没
有将对象引用置为nil时,对象引用将仍然引用对象解除之前所占用的内存地
址,这就是产生错误的原因。
  当然,在实际开发过程中,大多数错误不会这样明显,解决的方法也要
依具体而定,不会这么简单地加一句话就能解决问题。我在这里只是说明一
种编程思想,起一个抛砖引玉的作用,具体的东西还要靠你在实践中去探索,
积累。

欢迎大家阅读《Delphi中对象解除技巧_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: Delphi中对象解除技巧_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注