delphi的异常处理 上传者：Lockspace 2020-10-06 10:47:02上传 ZIP文件 202.8KB 热度 52次 详细介绍了异常处理的种类,以及代码的详细实现等等,欢迎大家下载 下载地址 用户评论 更多下载 下载地址 立即下载 用户评论 码姐姐匿名网友 2020-10-06 10:47:02 就下面这么简单的一段，楼主这个分也收得太狠了吧，我还以为有很多异常处理的示范及解说呢 procedureTForm1.Button1Click(Sender:TObject); var aaa:Real; begin try aaa:=StrToInt(Edit1.Text)divStrToInt(Edit2.Text); exceptonEDivByZero do ShowMessage('fuck'); end; ShowMessage(FloatToStr(aaa)); end; 发表评论
就下面这么简单的一段，楼主这个分也收得太狠了吧，我还以为有很多异常处理的示范及解说呢 procedureTForm1.Button1Click(Sender:TObject); var aaa:Real; begin try aaa:=StrToInt(Edit1.Text)divStrToInt(Edit2.Text); exceptonEDivByZero do ShowMessage('fuck'); end; ShowMessage(FloatToStr(aaa)); end;