Delphi中對象解除技巧

2019-11-18 17:58:06

字體：大中小

來源：轉載

供稿：網友

在Delphi程序設計中，我們需要通過解除建立的所有對象來避免內存泄漏。但是，如果你在程序中不謹慎小心的話，很容易多次解除同一個對象，這將會引起很嚴重的錯誤，造成應用程序崩潰，甚至是死機。

請看下面的程序：


PRocedure TForm1.Button1Click(Sender:TObject);
var
　Button2,Button3:TButton;
begin
  　Button2:=TButton.Create(self);
  　Button3:=TButton.Create(Button2);
  　Button2.Free;
  　Button3.Free;
end;

　　在上例中，當執行到Button3.Free時會產生一個錯誤，因為在調用Button2.Free時，Button2被解除，但因為Button2是Button3的宿主，Button3也同時被解除，因此錯誤就不可避免地發生了。
　　要避免上述錯誤，有兩種方法：第一，在解除宿主之前要先解除其所屬的所有組件。這種方法很簡單，只要將上例中Button2.Free和Button3.Free換位即可。第二，在Button3.Free執行之前將Button3變量設置為nil。程序如下：


Button2.Free;
Button3:=nil;
Button3.Free;

　　在上面的程序中，將Button3置為nil是為了阻止應用程序重新使用已解除對象的內存。在調用Free對象方法時，它會確定對象是否為nil，如果不是，Free對象方法會假定對象仍然存在，使用對象引用為它分配內存，然后調用Destroy釋放對象內存，并清除任何相關的虛擬對象方法的數據表格信息。而Destroy對于有對象存在的內存地址不會做任何改變，所以如果在調用Destroy之后測試該內存地址，它仍可能有效。所以當在程序中兩次調用一個對象而沒有將對象引用置為nil時，對象引用將仍然引用對象解除之前所占用的內存地址，這就是產生錯誤的原因。
　　當然，在實際開發過程中，大多數錯誤不會這樣明顯，解決的方法也要依具體而定，不會這么簡單地加一句話就能解決問題。我在這里只是說明一種編程思想，起一個拋磚引玉的作用，具體的東西還要靠你在實踐中去探索，積累。

上一篇：Delphi的Hint（1）

下一篇：實現Lucas-Kanade光流計算的Delphi類