Delphi對象釋放的技巧 (2001年4月5日) 

網友更新  分類:數據庫   作者: winmon(推薦)  推薦:winmon   閱讀次數:279  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
在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時，對象引用將仍然引用對象解除之前所占用的內存地址，這就是產生錯誤的原因。
　　當然，在實際開發過程中，大多數錯誤不會這樣明顯，解決的方法也要依具體而定，不會這么簡單地加一句話就能解決問題。我在這里只是說明一種編程思想，起一個拋磚引玉的作用，具體的東西還要靠你在實踐中去探索，積累。  
 


--------------------------------------------------------------------------------