Delphi中如何通过Try Except实现异常处理实例？

本文共计146个文字，预计阅读时间需要1分钟。

python// 计算单位转换率try: um_rate=vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat if um_rate==0: raise Exception(转换率不能为0) if vp_mstr.F('vp_um').AsString==vp_mstr.F('part_um').AsString: pass else: # 进行转换处理 pass

//判断单位转换率 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;