Delphi try abort、exit except 、finally end 执行情况


本文整理自网络,侵删。

 

Delphi try abort、exit except 、finally end 执行情况

 try

    abort;

    Edit1.Text := timetostr(now); //没执行

  except

  //执行了

    ShowMessage('1');

  end;

 

  try

    exit;

    Edit1.Text := timetostr(now); //没执行

  except

  //没执行

    ShowMessage('1');

  end;

 

  try

    exit;

    Edit1.Text := timetostr(now); //没执行

  finally

  //执行了

    ShowMessage('1');

  end;

 

  try

    abort;

    Edit1.Text := timetostr(now); //没执行

  finally

  //执行了

    ShowMessage('1');

  end;

 

 

――――――――――――――――

原文链接:https://blog.csdn.net/ozhy111/article/details/90902987

相关阅读 >>

Delphi 中判断windows系统是否是64位系统

tstrings 的用法

Delphi 使用 lockbox 做加密解密

Delphi httpencode

Delphi 调用shellexecute打开txt文本

Delphi 提高unigui开发效率的两个方法

Delphi function 与 procedure

Delphi创建桌面快捷方式及锁定任务栏等功能

tstringgrid 添加鼠标拖动功能

Delphi 枚举消息钩子的代码

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...