Delphi中对象解除技巧

2016-02-19 20:46 6 1 收藏

下面是个简单易学的Delphi中对象解除技巧教程，图老师小编详细图解介绍包你轻松学会，喜欢的朋友赶紧get起来吧！

【 tulaoshi.com - 编程语言】

　　我的主页: http://www.tommstudio.com/

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

　　请看下面的程序：


　　procedure TForm1.Button1Click(Sender:TObject);
　　var
　　　Button2,Button3:TButton;
　　begin
　　  　Button2:=TButton.Create(self);
　　  　Button3:=TButton.Create(Button2);
　　  　Button2.Free;
　　  　Button3.Free;
　　end;
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）

　　在上例中，当执行到Button3.Free时会产生一个错误，因为在调用Button2.Free时，Button2被解除，但因为Button2是Button3的宿主，Button3也同时被解除，因此错误就不可避免地发生了。
　　要避免上述错误，有两种方法：第一，在解除宿主之前要先解除其所属的所有组件。这种方法很简单，只要将上例中Button2.Free和Button3.Free换位即可。第二，在Button3.Free执行之前将Button3变量设置为nil。程序如下：
　　


　　Button2.Free;
　　Button3:=nil;
　　Button3.Free;
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）

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

来源:http://www.tulaoshi.com/n/20160219/1624466.html

上一篇： win7瘦瘦身大集合
下一篇：步步精细教你AS/400 DB2数据导入Access

看过《Delphi中对象解除技巧》的人还看了以下文章更多>>

Delphi面向对象的编程方法（二）

标签： Delphi

2.1.4 跳转语句 Object Pascal的跳转语句有 if 和 case两个。 2.1.4.1 if语句 if语句会计算一个表达式，并根据计算结果决定程序流程。在上文的例程中，根据 ColorDialog.Execute 的返回值，决定窗体的背景颜色。 if 保留字后跟随一个生成 Boolean 值 True或 False 的表达式...

Delphi面向对象的编程方法（一）

标签： Delphi

Delphi 的编程语言是以 Pascal为基础的。 Pascal 语言具有可读性好、编写容易的特点，这使得它很适合作为基础的开发语言。同时，使用编译器创建的应用程序只生成单个可执行文件 (.EXE) ，正是这种结合，使得 Pascal 成为 Delphi这种先进开发环境的编程语言。本章中，我们将讨论 Object...

Delphi面向对象的编程方法（三）

标签： Delphi

2.1.8.4 过程和函数的语句部分过程或函数的语句部分由 begin 开始， end结束。函数需要一个返回值。可以将返回值赋给函数名称，也可以将返回值赋给 Result 变量。下面的例程将返回值赋给函数名称： function CalculateInterest(Principal,InterestRate: Double):Double; begi...

扩展Delphi的线程同步对象(1)

标签： Delphi

在编写多线程应用程序时，最重要的是控制好线程间的同步资源访问，以保证线程的安全运行。Win 32 API提供了一组同步对象，如：信号灯(Semaphore)、互斥（Mutex）、临界区（CriticalSection）和事件(Event)等，用来解决这个问题。 Delphi分别将事件对象和临界区对象封装为Tevent对象和TcritialSection对象，使得这两...

Delphi设计简易对象垃圾回收框架

标签： Delphi

1.1 我的一个出错程序程序名称：呼叫处理模块的压力测试工具，分为客户端和服务端。开发工具：Delhpi 5 相关技术：客户端通过与服务端建立Socket连接来模拟一组电话机的拨入、按键、等待、挂机等过程。服务端对Socket事件以及收到的数据包进行预处理，并转化为抽象的呼叫模型数据，然后发送给更上层的呼叫处理模块。由...

查看更多精彩>>