Delphi程序使用資源的釋放

2019-11-18 18:57:36

字體：大中小

供稿：網(wǎng)友

寫出一個(gè)不會(huì)造成資源分配崩潰的Delphi應(yīng)用程序的
關(guān)鍵是確保如果程序中分配了資源，即使當(dāng)故障發(fā)生，程
序也應(yīng)能釋放占用的資源。

　　文件、內(nèi)存、WINDOWS資源和對(duì)象是一些必須時(shí)時(shí)加
以注意的需確保釋放的資源。下面的事件控制代碼例子中
先分配了內(nèi)存，然后產(chǎn)生了一個(gè)錯(cuò)誤，而造成它不再執(zhí)行
釋放內(nèi)存的程序代碼：

　　PRocedureTForm1．ButtonlClick（Sender：Tobject
）；

　　Var

　　Pointer1：Pointer；

　　Integer1，Numzero：Intger；

　　begin

　　Numzero：Κ0；

　　GetMem（Pointer1，1024）；｛分配1K的內(nèi)存資源｝

　　Integer1：Κ5divNumzero；｛此句產(chǎn)生一個(gè)除法錯(cuò)
誤｝

　　FreeMem（Pointer1，1024）；｛這里此句將不被執(zhí)
行｝end；

　　盡管大多數(shù)錯(cuò)誤不會(huì)這樣明顯，但上例包含了重要的
一點(diǎn)：當(dāng)錯(cuò)誤產(chǎn)生后，程序執(zhí)行跳出模塊，其后的資源釋
放程序代碼不再被執(zhí)行。為了確保上例中的FreeMem能夠
釋放被GetMem占用的內(nèi)存資源，必須把代碼放入一個(gè)資源
保護(hù)模塊。

　　這里給出一個(gè)曲型的資源保護(hù)模塊的格式：

　?。Y源的分配｝

　　try

　　｛資源的使用｝

　　finally

　?。Y源的釋放｝

　　end；

　　上面的try．．．finally模塊可以使程序總能執(zhí)行fi
??nally部分中的任何程序代碼，即使有錯(cuò)誤在保護(hù)模塊
中產(chǎn)生。當(dāng)try部分中的某一條代碼執(zhí)行時(shí)引起錯(cuò)誤時(shí)，執(zhí)
行將直接跳到finally部分；若執(zhí)行中沒有錯(cuò)誤產(chǎn)生，則
程序按正常順序執(zhí)行。

　　在下面的事件控制代碼例子中先分配了內(nèi)存，然后產(chǎn)
生了一個(gè)錯(cuò)誤，但是仍然執(zhí)行了釋放內(nèi)存的程序代碼：

　　ProcedureTForm1．Button1Click（Sender：Tobject
）；

　　Var

　　Pointer1：Pointer；

　　Integer1，Numzero：Integer；

　　begin

　　Numzero：Κ0；

　　GetMem（Pointer1，1024）；｛分配1K的內(nèi)存資源｝

　　try

　　Integer1：Κ5divNumzero；｛此句產(chǎn)生一個(gè)除法錯(cuò)
誤｝

　　finally

　　FreeMem（Pointer1，1024）；｛這里此句仍將被執(zhí)
行｝

　　end；

　　end；

　　如何保障程序?qū)λ觅Y源的釋放，在程序編制中是一
個(gè)非常重要的問題，必須在程序編制中加以實(shí)踐和注意。

上一篇：Delphi編程技巧十則

下一篇：Delphi制作帶圖標(biāo)的彈出式選單

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注