請問各位前輩：


[code delphi]
Var
stream: TMemerystream ;
begin
stream.create ;
//做了些事情
//
stream.free ;
end ;
[/code]

如果在stream.free「之前」出錯跳出函式，那stream會因為函式結束而Free嗎？
還是會成為空懸的記憶體？

編輯記錄

你的標題與內容似乎關係不大
可能要修改一下~

請問各位前輩：


[code delphi]
Var
stream: TMemerystream ;
begin
stream.create ;
//做了些事情
//
stream.free ;
end ;
[/code]

如果在stream.free「之前」出錯跳出函式，那stream會因為函式結束而Free嗎？
還是會成為空懸的記憶體？

------
Kadee/BigRed Ent.
www.tw165.com

照前輩所提示的，這種情況是會造成記憶體空懸了哦！

空懸是指??


kadee大大的方法是正常結束的狀況下
以下的是當錯誤發生時所用的:



[code delphi]
try
Ttream.Create;
//
Stream.Free;
except
ShowMessage('....');
Stream.Free;
end;
[/code]

===================引 用 polom 文 章===================
照前輩所提示的，這種情況是會造成記憶體空懸了哦！

try ...
不管中間有無錯誤
finally
都會執行
XXX.free;
end


請參考下列的說明，

he Finally keyword is used to mark the start of the final block of statements in a Try statement.
They are executed regardless of what happens in the Try statements.

However, the Finally clause does not actually handle any exceptions -
the program will terminate if no Except clause is found (see notes below).

Try-Finally is normally used by a routine to allow cleanup processing to take place,
such as freeing resources, with the exception being correctly passed to the caller to handle.
===================引 用 polom 文 章===================
請問各位前輩：


[code delphi]
Var
stream: TMemerystream ;
begin
stream.create ;
//做了些事情
//
stream.free ;
end ;
[/code]

如果在stream.free「之前」出錯跳出函式，那stream會因為函式結束而Free嗎？
還是會成為空懸的記憶體？

------
Kadee/BigRed Ent.
www.tw165.com

感謝各位前輩的指導

我原本的寫作習慣是

procedure XXX
begin
stream:= XX.create ;
//中間不會使用try
stream.free ;
end ;

有同事跟我說如果沒有用Try來包的話，當函式中間出錯時Stream「可能」不會完整的釋放。
這個「可能」性存在嗎？

如果程式在執行到  stream.free 之前發生錯誤跳掉了，
當然 stream就無法被釋放。所以才要用
try
...
finally
stream.free
end;
包起來，確保物件create 後，會釋放完全。

不過話說回來，現在PC記憶體動不動就 2G甚至到 4G。
要搞到[記憶體不足]還真不容易。
真的發生了就請user重開機。 :)


===================引 用 polom 文 章===================
感謝各位前輩的指導

我原本的寫作習慣是

procedure XXX
begin
stream:=XX.create ;
//中間不會使用try
stream.free ;
end ;

有同事跟我說如果沒有用Try來包的話，當函式中間出錯時Stream「可能」不會完整的釋放。
這個「可能」性存在嗎？

------
Kadee/BigRed Ent.
www.tw165.com

記憶體是很大沒錯，但是 GDI 資源仍然是很少
假如沒有正常釋放的物件有使用到 GDI 資源，而且使用很頻繁的話，程式很快會崩潰的喔

===================引 用 kadee 文 章===================
不過話說回來，現在PC記憶體動不動就 2G甚至到 4G。
要搞到[記憶體不足]還真不容易。
真的發生了就請user重開機。 :)

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

喔喔~~小弟受教了
小弟一直以為用
try
...
except
on E:Exce... do
end;

才有辦法包住錯誤XD


===================引 用 kadee 文 章===================

try?? ...?
不管中間有無錯誤
finally???
都會執行
??? XXX.free;
end


請參考下列的說明，

he Finally keyword is used to mark the start of the final block of statements in a Try statement.
They are executed regardless of what happens in the Try statements.
?
However, the Finally clause does not actually handle any exceptions -
the program will terminate if no Except clause is found (see notes below).
?
Try-Finally is normally used by a routine to allow cleanup processing to take place,
such as freeing resources, with the exception being correctly passed to the caller to handle.
===================引 用 polom 文 章===================
請問各位前輩：


[code delphi]
Var
stream: TMemerystream ;
begin
stream.create ;
//做了些事情
//
stream.free ;
end ;
[/code]

如果在stream.free「之前」出錯跳出函式，那stream會因為函式結束而Free嗎？
還是會成為空懸的記憶體？