写出一个不会造成资源分配崩溃的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；

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