📄 wzjh9.htm
字号:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"><meta name="GENERATOR" content="Microsoft FrontPage 3.0"><title>DELPHI程序使用资源的释放</title></head><body bgcolor="#FFFFFF"><p><font color="#118811" size="4"><strong>Delphi程序使用资源的释放</strong></font> <br><br><font color="#118811" size="3"><em>罗起</em></font> <br> 写出一个不会造成资源分配崩溃的Delphi应用程序的<br>关键是确保如果程序中分配了资源，即使当故障发生，程<br>序也应能释放占用的资源。<br><br> 文件、内存、WINDOWS资源和对象是一些必须时时加<br>以注意的需确保释放的资源。下面的事件控制代码例子中<br>先分配了内存，然后产生了一个错误，而造成它不再执行<br>释放内存的程序代码：<br><br> ProcedureTForm1．ButtonlClick（Sender：Tobject<br>）；<br><br> Var<br><br> Pointer1：Pointer；<br><br> Integer1，Numzero：Intger；<br><br> begin<br><br> Numzero：Κ0；<br><br> GetMem（Pointer1，1024）；｛分配1K的内存资源｝<br><br><br> Integer1：Κ5divNumzero；｛此句产生一个除法错<br>误｝<br><br> FreeMem（Pointer1，1024）；｛这里此句将不被执<br>行｝end；<br><br> 尽管大多数错误不会这样明显，但上例包含了重要的<br>一点：当错误产生后，程序执行跳出模块，其后的资源释<br>放程序代码不再被执行。为了确保上例中的FreeMem能够<br>释放被GetMem占用的内存资源，必须把代码放入一个资源<br>保护模块。<br><br> 这里给出一个曲型的资源保护模块的格式：<br><br> ｛资源的分配｝<br><br> try<br><br> ｛资源的使用｝<br><br> finally<br><br> ｛资源的释放｝<br><br> end；<br><br> 上面的try．．．finally模块可以使程序总能执行fi<br>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -