hello,
我有一個問題一直想問，是關於怎樣正確關閉一個object，例如，初始化一個TStringList，我的代碼是

[code delphi]
var
ts :TStringList;
begin
ts := nil;
try
ts := TStringList.create;
...
finally
...
end;
end;
[/code]

我想在 finally 裡釋放 ts 這個object，我是否要先判斷它是否NULL? 我應該用

if (ts<>nil) then ...

還是

if (Assigned(ts)) then ...

來判斷？如果object 非 NULL，那麼我應該用 ts.Free 還是 ts.Destory 來釋放它？最後是否要將 ts 置為 nil?

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var ts : tstringlist;
begin
{ ts :=nil;這行就免了}
ts := tstringlist.Create;
try
if assigned(ts) then begin
showmessage('ts exist');
end;
finally
{
ts.free; // 單純釋放物件
ts := nil; // 歸0
}
freeandnil(ts); // 一次作二件事
end;
end;
[/code]

------
努力會更接近成功

編輯記錄