Delphi 基本的Try語法

try

  //Enter Your Code

except

  on E:Exception do

  begin

    ShowMessage('ErrorClassName = ' + E.ClassName+#13+'Error Msg = ' + E.Message);

  end

end;

以上 except 是 若錯誤時才進行

改成Finally 是 不管如何都會進行

 

以下是小白個人常用方法筆記 (加入Log紀錄)

附註說明 ErrorEvent 必須引用 XBErrorLogUnit_FMX

詳見 http://kamilia1470.pixnet.net/blog/post/209011255-delphi-xberrorlogunit_fmx

try
  //EnterYourCode
except
  onE:Exception do
  begin
    ErrorEvent(
    '錯誤訊息'
    ,E.ClassName
    ,E.Message
    );
  end;
end;

arrow
arrow
    文章標籤
    Delphi Try Except catch
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄