AClass = Class(TObject) .... end; 1.AClass.Free; AClass := nil; 2.FreeAndNil(AClass); 請問使用FreeAndNil(2)釋放物件比起自行釋放物件(1)有什麼優點嗎?

我認為有優缺各一
優：兩行指令變一行指令
缺：2所花的 CPU 時間比1的時間多。原因是使用了程序呼叫以及內部的程式碼比兩行更多。
但我還是願意使用 FreeAndNil 因為方便簡潔

< src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

Hi neoaj23,    請參考 http://delphi.ktop.com.tw/topic.php?topic_id=45708 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

純討論, 雖然我也覺得 FreeAndNil 很簡潔, 但是可能是我觀念不對或功力不足, 曾經懷疑過, FreeAndNil 用 TObject (Cast 成 TObject) 的 Free Method, 會不會有問題 ? 例如 : TButton 所占的記憶體 Size 應該比 TObject 大, 那...FreeAndNil(Button1).....所占的記憶體真的都釋放了嗎 ?

引言: 純討論, 雖然我也覺得 FreeAndNil 很簡潔, 但是可能是我觀念不對或功力不足, 曾經懷疑過, FreeAndNil 用 TObject (Cast 成 TObject) 的 Free Method, 會不會有問題 ? 例如 : TButton 所占的記憶體 Size 應該比 TObject 大, 那...FreeAndNil(Button1).....所占的記憶體真的都釋放了嗎 ?

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

上面的FreeAndNil的Source code,我們可以發現誠如http://delphi.ktop.com.tw/topic.php?topic_id=45708 裡所討論的,他是把指到Obj的這個指標清掉,並且呼叫這個Obj本身的free方法,所以,除非傳入的Obj物件本身的 Free程式有問題,否則呼叫該物件本身的Free方法就應該成功.無關這個元件距離TObject隔了幾代, 元件的程式碼比TObject大了多少或多佔了多少記憶體,我不大會描述,希望這能解你的疑惑

引言:

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

上面的FreeAndNil的Source code,我們可以發現誠如http://delphi.ktop.com.tw/topic.php?topic_id=45708 裡所討論的,他是把指到Obj的這個指標清掉,並且呼叫這個Obj本身的free方法,所以,除非傳入的Obj物件本身的 Free程式有問題,否則呼叫該物件本身的Free方法就應該成功.無關這個元件距離TObject隔了幾代, 元件的程式碼比TObject大了多少或多佔了多少記憶體,我不大會描述,希望這能解你的疑惑 < face="Verdana, Arial, Helvetica"> 好像有點懂了...感謝您.