delphi Try except on e:Exception do
except on e:Exception do
//判断单位转换率
try
um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat;
if um_rate <= 0 then
abort
else if (vp_mstr.F('vp_um').AsString = vp_mstr.F('part_um').AsString) and (um_rate <> 1) then
abort
else if (vp_mstr.F('vp_um').AsString <> vp_mstr.F('part_um').AsString) and (um_rate = 1) then
abort;
except on e:Exception do
begin
Application.MessageBox(PChar(E.Message), 'error', 16);//抛出异常信息
priMsg.ShowMsg('004'); //004=单位转换率设置错误!
edt_vp_um_rate_d.SetFocus;
abort;
end;
end;
好的代码像粥一样,都是用时间熬出来的
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步