各位前輩們好

我相信很多人code
都會加上TRY except
但是發現了一個問題
簡單舉例來說
var
A:integer;
B:string;

TRY
B:='';
A:=strtoint(B);
except
on E:Exception do
begin
WriteErrorLog(datetimetostr(now) E.Message);
end;
end

會發現到WriteErrorLog會沒有執行
而是直接掛在 A:=strtoint(B); 這段
有沒有感覺奇怪...
為什麼沒有跑到WriteErrorLog??
這就是我目前覺得奇怪的地方
還是說要用其它方法才會跑到WriteErrorLog??

try...except 不致於會發生你說的狀況, 我懷疑是  WriteErrorLog 沒作用, 我不清楚這組函數的用法,
把 WriteErrorLog(datetimetostr(now) E.Message);
改為 ShowMessage(pChar(datetimetostr(now) E.Message))); 看看

P.D大
真的像你所說的
這段程式碼我放在create裡面
結果要去引用WriteErrorLog時
就發生錯誤
原因就是WriteErrorLog這組函數的unit並未create
而導致發生此種狀況

===================引 用 P.D. 文 章===================
try...except 不致於會發生你說的狀況, 我懷疑是 WriteErrorLog 沒作用, 我不清楚這組函數的用法,
把 WriteErrorLog(datetimetostr(now) E.Message);
改為 ShowMessage(pChar(datetimetostr(now) E.Message))); 看看