Delphi程序使用资源的释放_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi程序使用资源的释放

作者：闵涛文章来源：闵涛的学习笔记点击数：851 更新时间：2009/4/23 18:42:40

写出一个不会造成资源分配崩溃的Delphi应用程序的
关键是确保如果程序中分配了资源，即使当故障发生，程
序也应能释放占用的资源。

　　文件、内存、WINDOWS资源和对象是一些必须时时加
以注意的需确保释放的资源。下面的事件控制代码例子中
先分配了内存，然后产生了一个错误，而造成它不再执行
释放内存的程序代码：

　　ProcedureTForm1．ButtonlClick（Sender：Tobject
）；

　　Var

　　Pointer1：Pointer；

　　Integer1，Numzero：Intger；

　　begin

　　Numzero：Κ0；

　　GetMem（Pointer1，1024）；｛分配1K的内存资源｝

　　Integer1：Κ5divNumzero；｛此句产生一个除法错
误｝

　　FreeMem（Pointer1，1024）；｛这里此句将不被执
行｝end；

　　尽管大多数错误不会这样明显，但上例包含了重要的
一点：当错误产生后，程序执行跳出模块，其后的资源释
放程序代码不再被执行。为了确保上例中的FreeMem能够
释放被GetMem占用的内存资源，必须把代码放入一个资源
保护模块。

　　这里给出一个曲型的资源保护模块的格式：

　　｛资源的分配｝

　　try

　　｛资源的使用｝

　　finally

　　｛资源的释放｝

　　end；

　　上面的try．．．finally模块可以使程序总能执行fi
nally部分中的任何程序代码，即使有错误在保护模块
中产生。当try部分中的某一条代码执行时引起错误时，执
行将直接跳到finally部分；若执行中没有错误产生，则
程序按正常顺序执行。

　　在下面的事件控制代码例子中先分配了内存，然后产
生了一个错误，但是仍然执行了释放内存的程序代码：

　　ProcedureTForm1．Button1Click（Sender：Tobject
）；

　　Var

　　Pointer1：Pointer；

　　Integer1，Numzero：Integer；

　　begin

　　Numzero：Κ0；

　　GetMem（Pointer1，1024）；｛分配1K的内存资源｝

　　try

　　Integer1：Κ5divNumzero；｛此句产生一个除法错
误｝

　　finally

　　FreeMem（Pointer1，1024）；｛这里此句仍将被执
行｝

　　end；

　　end；

　　如何保障程序对所用资源的释放，在程序编制中是一
个非常重要的问题，必须在程序编制中加以实践和注意。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi代码优化完结篇

下一篇教程： cool !!! DELPHI图形编辑技巧二则

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……