Delphi程式使用資源的釋放
來源：互聯網
上載者：User
寫出一個不會造成資源分派崩潰的Delphi應用程式的
關鍵是確保如果程式中分配了資源，即使當故障發生，程
序也應能釋放佔用的資源。
檔案、記憶體、WINDOWS資源和對象是一些必須時時加
以注意的需確保釋放的資源。下面的事件控制碼例子中
先分配了記憶體，然後產生了一個錯誤，而造成它不再執行
釋放記憶體的程式碼：
PR ocedureTForm1．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；
如何保障程式對所用資源的釋放，在程式編製中是一
個非常重要的問題，必須在程式編製中加以實踐和注意。
