📄 160.htm

📁 水木清华的BBS文章
💻 HTM
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CTerm非常精华下载</title>
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="577">
<tr><td width="32%" rowspan="3" height="123"><img src="DDl_back.jpg" width="300" height="129" alt="DDl_back.jpg"></td><td width="30%" background="DDl_back2.jpg" height="35"><p align="center"><a href="http://bbs.tsinghua.edu.cn"><font face="黑体"><big><big>水木清华★</big></big></font></a></td></tr>
<tr>
<td width="68%" background="DDl_back2.jpg" height="44"><big><big><font face="黑体"><p align="center">         Delphi编程                            (BM: strayli FlyingBoy)          </font></big></big></td></tr>
<tr>
<td width="68%" height="44" bgcolor="#000000"><font face="黑体"><big><big><p   align="center"></big></big><a href="http://cterm.163.net"><img src="banner.gif" width="400" height="60" alt="banner.gif"border="0"></a></font></td>
</tr>
<tr><td width="100%" colspan="2" height="454">　<p align="center">[<a href="index.htm">回到开始</a>][<a href="7.htm">上一层</a>][<a href="161.htm">下一篇</a>]
<hr><p align="left"><small>发信人: pitts (痛并快乐着), 信区: Delphi <br>

标  题: Delphi程序使用资源的释放 <br>

发信站: BBS 水木清华站 (Tue Oct 13 10:18:27 1998) <br>

  <br>

Delphi程序使用资源的释放 <br>

  <br>

罗起 <br>

　　写出一个不会造成资源分配崩溃的Delphi应用程序的 <br>

关键是确保如果程序中分配了资源，即使当故障发生，程 <br>

序也应能释放占用的资源。 <br>

  <br>

　　文件、内存、WINDOWS资源和对象是一些必须时时加 <br>

以注意的需确保释放的资源。下面的事件控制代码例子中 <br>

先分配了内存，然后产生了一个错误，而造成它不再执行 <br>

释放内存的程序代码： <br>

  <br>

　　ProcedureTForm1．ButtonlClick（Sender：Tobject）； <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>

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

  <br>

　　尽管大多数错误不会这样明显，但上例包含了重要的 <br>

一点：当错误产生后，程序执行跳出模块，其后的资源释 <br>

放程序代码不再被执行。为了确保上例中的FreeMem能够 <br>

释放被GetMem占用的内存资源，必须把代码放入一个资源 <br>

保护模块。 <br>

  <br>

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

  <br>

 　。
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -