delphi try except语句 和 try finally语句用法以及区别

最新推荐文章于 2024-02-27 08:50:15 发布
最新推荐文章于 2024-02-27 08:50:15 发布
阅读量287 收藏
点赞数
原文链接：http://www.cnblogs.com/michellexiaoqi/p/6984269.html
版权

1、当执行try...except之间的语句序列没有发生异常时，则忽略异常处理部分的语句，程序直接转移try...except..finally后面的语句处执行;
2、Except括起来的语句，则只有在产生异常的情况下会被执行，其他情况一概不执行的。 
3、Finally括起来的语句是铁定会被执行的，无论是否有异常产生； 

try//尝试执行
{SomeCode} 
except//出错的时候执行, Except有特定的错误类型 
{SomeCode} 
end; 

try//尝试执行
{SomeCode} 
finally//无论如何都强制执行
{SomeCode} 
end; 

例:
try
Age:=StrToInt(Edit1.Text);
ShowMessage(Format('生于%d年',[YearOf(Now)-Age]));
except
on EConvertError do
showmessage('输入编辑框的不是一个有效的数字!');
on ERangeError do
showmessage('输入编辑框的年龄值太大!');
end;



保留字on…do用于判断异常类型。必须注意的是：except后面的语句必须包含在某一个on…do模块中，而不能单独存在。这又是同finally不同的一个地方。


异常处理
try
//成功失败都跳进finally语句里执行
finally

end;
try
//失败才跳进 except里执行
except on e:Exception do
ShowMessage(e.Message);
end; 

 

例子：我写的一个服务

procedure TDBMonitorService.Timer1Timer(Sender: TObject);
var
tSQL: string;
tSAMPLEID,tJG,tCLASSES,tGUID,tTESTTIME,tC,tSi,tMn,tp,tS,tCu,tNi,tCR,tAS,tSN,tPB,tV,tAL,tTI,tSB,tBI,tMO, tLCH,tLGH,tQX,tSAMPLE,sSCBZ:string;
MyArr: array[0..4] of string;
i, nFH,j,k:Integer;
begin
　　Ansys := true;
　　try
　　　　//SYN_SIGN=1 已上报 SYN_SIGN=0 未上报
　　　　　　try
　　　　　　　　with qry_erp do
　　　　　　　　begin
　　　　　　　　　　if Active then Close;
　　　　　　　　　　SQL.Clear;
　　　　　　　　　　SQL.Add('SELECT SAMPLEID, SYN_SIGN, nvl(FD_C,0) FD_C, nvl(FD_SI,0) FD_SI, nvl(FD_MN,0) FD_MN, nvl(FD_P,0) FD_P,');
　　　　　　　　　　SQL.Add('nvl(FD_S,0) FD_S, nvl(FD_CU,0) FD_CU, nvl(FD_NI,0) FD_NI, nvl(FD_CR,0) FD_CR, nvl(FD_AS,0) FD_AS, nvl(FD_SN,0) FD_SN,');
　　　　　　　　　　SQL.Add('nvl(FD_PB,0) FD_PB, nvl(FD_V,0) FD_V, nvl(FD_AL,0) FD_AL, nvl(FD_TI,0) FD_TI, nvl(FD_SB,0) FD_SB, nvl(FD_BI,0) FD_BI, nvl(FD_MO,0) 　　　　　　　　　　FD_MO, SAMPLEOK, TESTTIME ');
　　　　　　　　　　SQL.Add('FROM D1_FDSYTS_DATA WHERE SYN_SIGN=0 ORDER BY SENDTIME DESC');
　　　　　　　　　　Open;
　　　　　　　　end;

　　　　　　except
　　　　　　　　on e:Exception do
　　　　　　　　　　begin
　　　　　　　　　　　　WriteLog(e.Message+'->数据库打开错误！');
　　　　　　　　　　　　Exit;
　　　　　　　　　　end;
　　　　　　end;

　　　　if (not qry_erp.IsEmpty) then
　　　　begin
　　　　　　qry_erp.First;
　　　　　　try
　　　　　　　　while not qry_erp.Eof do
　　　　　　　　begin
　　　　　　　　　　tSQL := '';
　　　　　　　　　　sSCBZ:='';
　　　　　　　　　　tSAMPLEID := qry_erp.FieldByName('SAMPLEID').AsString; // 炉次号 ,炉罐号 ,去向(9-17-1234,123,A)
　　　　　　　　　　tSAMPLE :=tSAMPLEID;
　　　　　　　　　　j:=1;
　　　　　　　　　　k:=0;
　　　　　　　　　　for i:=0 to 2 do
　　　　　　　　　　begin
　　　　　　　　　　　　nFH:=pos(',',tSAMPLE);
　　　　　　　　　　　　k:=k+nFH;
　　　　　　　　　　　　if(nFH<>0) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if(j=1) then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　tLCH:=Trim(copy(tSAMPLEID,0,k-1));
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　　　if(j=2)then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　tLGH:=Trim(copy(tSAMPLE,0,pos(',',tSAMPLE)-1));
　　　　　　　　　　　　　　　　tQX:=copy(tSAMPLE,nFH+1,length(tSAMPLE));
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　　　tSAMPLE:=copy(tSAMPLE,nFH+1,length(tSAMPLE));
　　　　　　　　　　　　　　j:=j+1;
　　　　　　　　　　　　end
　　　　　　　　　　　　else if(nFH=0) then break;
　　　　　　　　　　end;

　　　　　　　　　　if(j=3)then
　　　　　　　　　　begin
　　　　　　　　　　　　tC := qry_erp.FieldByName('FD_C').AsString ;
　　　　　　　　　　　　tSi := qry_erp.FieldByName('FD_SI').AsString;
　　　　　　　　　　　　tMn := qry_erp.FieldByName('FD_MN').AsString;
　　　　　　　　　　　　tp := qry_erp.FieldByName('FD_P').AsString;
　　　　　　　　　　　　tS := qry_erp.FieldByName('FD_S').AsString;
　　　　　　　　　　　　tCu:= qry_erp.FieldByName('FD_CU').AsString;
　　　　　　　　　　　　tNi:= qry_erp.FieldByName('FD_NI').AsString;
　　　　　　　　　　　　tCR := qry_erp.FieldByName('FD_CR').AsString;
　　　　　　　　　　　　tAS := qry_erp.FieldByName('FD_AS').AsString;
　　　　　　　　　　　　tSN := qry_erp.FieldByName('FD_SN').AsString;
　　　　　　　　　　　　tPB := qry_erp.FieldByName('FD_PB').AsString;
　　　　　　　　　　　　tV := qry_erp.FieldByName('FD_V').AsString;
　　　　　　　　　　　　tAL:= qry_erp.FieldByName('FD_AL').AsString;
　　　　　　　　　　　　tTI:= qry_erp.FieldByName('FD_TI').AsString;
　　　　　　　　　　　　tSB:= qry_erp.FieldByName('FD_SB').AsString;
　　　　　　　　　　　　tBI:= qry_erp.FieldByName('FD_BI').AsString;
　　　　　　　　　　　　tMO:= qry_erp.FieldByName('FD_MO').AsString;
　　　　　　　　　　　　tJG:= qry_erp.FieldByName('SAMPLEOK').AsString;
　　　　　　　　　　　　tTESTTIME:= qry_erp.FieldByName('TESTTIME').AsString; //铁水化验时间

　　　　　　　　　　　　tCLASSES:='';

　　　　　　　　　　　　MyArr[0]:='';
　　　　　　　　　　　　MyArr[1]:='';
　　　　　　　　　　　　MyArr[2]:='';
　　　　　　　　　　　　MyArr[3]:='';
　　　　　　　　　　　　MyArr[4]:='';
　　　　　　　　　　　　if((tC<>'') and (tSi<>'') and (tS<>'') and (tp<>'') and (tMn<>'') ) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if( (StrToFloat(tC)>=3.5) and (StrToFloat(tSi)<=0.8) and (StrToFloat(tS)<=0.05) and (StrToFloat(tp)<=0.17) and (StrToFloat(tMn)<=1)) then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　MyArr[0]:='A';
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　end;

　　　　　　　　　　　　if((tC<>'') and (tSi<>'') and (tS<>'') and (tp<>'') and (tMn<>'') and (tCR<>'') and (tNi<>'') and (tCu<>'') and (tMO<>'') and (tAS<>'')) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　  if( (StrToFloat(tC)>=3.5) and (StrToFloat(tSi)>=0.2) and (StrToFloat(tSi)<=0.6)　and (StrToFloat(tS)<=0.05) and (StrToFloat(tp)<=0.14) and

　　　　　　　　　　　　　　StrToFloat(tMn)<=1) and (StrToFloat(tCR)<=0.10) and (StrToFloat(tNi)<=0.10) and (StrToFloat(tCu)<=0.05) and (StrToFloat(tMO)<=0.05) and 　　　　　　　　　　　　　　(StrToFloat(tAS)<=0.008) ) then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　MyArr[1]:='B';
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　end;
　　　　　　　　　　　　if((tC<>'') and (tSi<>'') and (tS<>'') and (tp<>'') and (tMn<>'') and (tCR<>'') and (tNi<>'') and (tCu<>'') and (tMO<>'') and (tAS<>'') and (tPB<>'') and (tSN<>'') and 　　　　　　　　　　　　(tSB<>'') and (tBI<>'') and (tTI<>'')) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if( (StrToFloat(tC)>=3.5) and (StrToFloat(tSi)>=0.2) and (StrToFloat(tSi)<=0.6)
　　　　　　　　　　　　　　and (StrToFloat(tS)<=0.05) and (StrToFloat(tp)<=0.14) and (StrToFloat(tMn)<=1)
　　　　　　　　　　　　　　and (StrToFloat(tCR)<=0.10) and (StrToFloat(tNi)<=0.10) and (StrToFloat(tCu)<=0.05)
　　　　　　　　　　　　　　and (StrToFloat(tMO)<=0.05) and (StrToFloat(tAS)<=0.008) and (StrToFloat(tPB)<=0.007)
　　　　　　　　　　　　　　and (StrToFloat(tSN)<=0.005) and (StrToFloat(tSB)<=0.005) and (StrToFloat(tBI)<=0.007)
　　　　　　　　　　　　　　and (StrToFloat(tTI)<=0.050) ) then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　MyArr[2]:='C';
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　end;
　　　　　　　　　　　　if((tC<>'') and (tSi<>'') and (tS<>'') and (tp<>'') and (tMn<>'') and (tCR<>'') and (tNi<>'') and (tCu<>'') and (tMO<>'') and (tAS<>'') and (tPB<>'') and (tSN<>'') and 　　　　　　　　　　　　(tSB<>'') and (tBI<>'') and (tTI<>'')) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if( (StrToFloat(tC)>=3.5) and (StrToFloat(tSi)>=0.2) and (StrToFloat(tSi)<=0.6)
　　　　　　　　　　　　　　and (StrToFloat(tS)<=0.05) and (StrToFloat(tp)<=0.14) and (StrToFloat(tMn)<=1)
　　　　　　　　　　　　　　and (StrToFloat(tCR)<=0.05) and (StrToFloat(tNi)<=0.05) and (StrToFloat(tCu)<=0.05)
　　　　　　　　　　　　　　and (StrToFloat(tMO)<=0.05) and (StrToFloat(tAS)<=0.005) and (StrToFloat(tPB)<=0.005)
　　　　　　　　　　　　　　and (StrToFloat(tSN)<=0.003) and (StrToFloat(tSB)<=0.003) and (StrToFloat(tBI)<=0.005)
　　　　　　　　　　　　　　and (StrToFloat(tTI)<=0.050) ) then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　MyArr[3]:='D';
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　end;
　　　　　　　　　　　　if((tC<>'') and (tSi<>'') and (tS<>'') and (tp<>'') and (tMn<>'') and (tCR<>'') and (tNi<>'') and (tCu<>'') and (tMO<>'') and (tAS<>'') and (tSN<>'') and (tTI<>'')) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if( (StrToFloat(tC)>=3.5) and (StrToFloat(tSi)>=0.2) and (StrToFloat(tSi)<=0.6)
　　　　　　　　　　　　　　and (StrToFloat(tS)<=0.05) and (StrToFloat(tp)<=0.14) and (StrToFloat(tMn)<=1)
　　　　　　　　　　　　　　and (StrToFloat(tCR)<=0.03) and (StrToFloat(tNi)<=0.03) and (StrToFloat(tCu)<=0.03)
　　　　　　　　　　　　　　and (StrToFloat(tMO)<=0.03) and (StrToFloat(tAS)<=0.006) and (StrToFloat(tSN)<=0.007)
　　　　　　　　　　　　　　and (StrToFloat(tTI)<=0.050) ) then
　　　　　　　　　　　　　　begin
　　　　　　　　　　　　　　　　MyArr[4]:='E';
　　　　　　　　　　　　　　end;
　　　　　　　　　　　　end;

　　　　　　　　　　　　for i:=0 to 4 do
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if MyArr[i] <>'' then
　　　　　　　　　　　　　　　　tCLASSES:=tCLASSES+ MyArr[i]+',';
　　　　　　　　　　　　end;
　　　　　　　　　　　　tCLASSES:=copy(tCLASSES,1,length(tCLASSES)-1);

　　　　　　　　　　　　with qry_scyx do
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if Active then Close;
　　　　　　　　　　　　　　SQL.Clear;
　　　　　　　　　　　　　　SQL.Add('SELECT * FROM SJCJ_GLTSHY_TEST where LCH='''+tLCH+''' and LGH='''+tLGH+''' and yxbz=''1'' ');
　　　　　　　　　　　　　　Open;
　　　　　　　　　　　　end;

　　　　　　　　　　　　if qry_scyx.IsEmpty then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　tSQL := 'insert into 　　　　　　　　　　　SJCJ_GLTSHY_TEST(BH,LCH,LGH,C,SI,MN,S,P,JG,TSHYJLSJ,V,TI,CR,NI,PB,SN,AS_,SB,BI,MO,CU,CR2,NI2,PB2,SN2,AS_2,SB2,BI2,MO2,CU2,TI2,V2,CLAS　　　　　　　　　　　　　　SES,yxbz,qx,CJR)'
　　　　　　　　　　　　　　+' values(sys_guid(),'''+tLCH+''','''+tLGH+''','''+tC+''','''+tSi+''','''+tMn+''','''+tS+''','''+tp+''','''+tJG+''',to_date('''+tTESTTIME+''',''yyyy-mm-dd hh24:mi:ss'') '
　　　　　　　　　　　　　　+' ,'''+tV+''','''+tTI+''','''+tCR+''','''+tNi+''','''+tPB+''','''+tSN+''','''+tAS+''','''+tSB+''','''+tBI+''','''+tMO+''','''+tCu+''' '
　　　　　　　　　　　　　　+' ,'''+tCR+''','''+tNi+''','''+tPB+''','''+tSN+''','''+tAS+''','''+tSB+''','''+tBI+''','''+tMO+''','''+tCu+''','''+tTI+''','''+tV+''' ,'''+tCLASSES+''',''1'','''+tQX+''',''FDSY'')';
　　　　　　　　　　　　　　writelog('Insert: '+tSQL);
　　　　　　　　　　　　end
　　　　　　　　　　　　else
　　　　　　　　　　　　begin
　　　　　　　　　　　　//如果有数据则更新
　　　　　　　　　　　　tGUID := qry_scyx.FieldByName('BH').AsString;
　　　　　　　　　　　　tSQL := ' update SJCJ_GLTSHY_TEST set C='''+tC+''',SI='''+tSi+''',MN='''+tMn+''',S='''+tS+''',P='''+tp+''',JG= '''+tJG+''', TSHYJLSJ=to_date('''+tTESTTIME+''',''yyyy-mm-dd hh24:mi:ss'') '
　　　　　　　　　　　　+' ,V='''+tV+''',TI='''+tTI+''' ,CR='''+tCR+''',NI='''+tNi+''',PB='''+tPB+''',SN='''+tSN+''',AS_='''+tAS+''',SB='''+tSB+''' '
　　　　　　　　　　　　+' ,BI='''+tBI+''',MO='''+tMO+''',CU='''+tCu+''',CR2='''+tCR+''',NI2='''+tNi+''',PB2='''+tPB+''',SN2='''+tSN+''',AS_2='''+tAS+''',SB2='''+tSB+''' '
　　　　　　　　　　　　+' , BI2='''+tBI+''',MO2='''+tMO+''',CU2='''+tCu+''',TI2='''+tTI+''',V2='''+tV+''',CLASSES='''+tCLASSES+''' '
　　　　　　　　　　　　+' where BH='''+tGUID+''' ';
　　　　　　　　　　　　writelog('Update: '+tSQL);
　　　　　　　　　　end;
　　　　　　　　　　sSCBZ:='1';
　　　　　　　　　　end
　　　　　　　　　　else begin
　　　　　　　　　　　　sSCBZ:='2';
　　　　　　　　　　end;

　　　　　　　　　　if (sSCBZ<>'') then
　　　　　　　　　　begin
　　　　　　　　　　try
　　　　　　　　　　　　if (tSQL<>'') then
　　　　　　　　　　begin
　　　　　　　　　　　　with qry_scyx do
　　　　　　　　　　　　begin
　　　　　　　　　　　　　　if Active then Close;
　　　　　　　　　　　　　　SQL.Text := tSQL;
　　　　　　　　　　　　　　ExecSQL;
　　　　　　　　　　　　end;
　　　　　　　　　　end;
　　　　　　　　except
　　　　　　　　　　on e:Exception do
　　　　　　　　　　begin
　　　　　　　　　　　　WriteLog('执行oracle语句时：'+e.Message+'；SQL语句：'+tSQL); 　　　　　　　
　　　　　　　　　　　　qry_erp.Next;
　　　　　　　　　　　　Continue;
　　　　　　　　　　　　WriteLog('下一条记录');
　　　　　　　　　　end;
　　　　　　end;
　　　　　　try
　　　　　　　　//更新Accesss
　　　　　　　　qry_erp.Edit;
　　　　　　　　qry_erp.FieldByName('SYN_SIGN').AsString := sSCBZ; //更新已上报标志
　　　　　　　　except
　　　　　　　　　　on e:Exception do
　　　　　　　　　　WriteLog('更新Access上报标志时 : '+e.Message);
　　　　　　　　end;
　　　　　end;
　　　　　qry_erp.Next;
　　　　end;
　　　　except
　　　　on e:Exception do
　　　　　　WriteLog('线程执行循环体：'+e.Message);
　　　　end;
　　end;

　　finally
　　　　Ansys := false;
　　end;
end;

转载于:https://www.cnblogs.com/michellexiaoqi/p/6984269.html

weixin_30902251
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi异常处理try_except语句和try_finally语句用法以及区别.pdf
12-01
Delphi异常处理try_except语句和try_finally语句用法以及区别.pdf Delphi异常处理try_except语句和try_finally语句用法以及区别.pdf
C++ 中try finally关键字详解
12-31
try-finally语句是Microsoft对C和C++语言的扩展，它能使32位的目标程序在异常出现时，有效保证一些资源能够被及时清除，这些资源的清除任务可以包括例如内存的释放，文件的关闭，文件句柄的释放等等。try-finally...
Delphi异常处理总结
weixin_33923762的博客
05-08 163
以前写delphi程序一直不注意异常处理，对其异常处理机制总是一知半解，昨天程序中的一个bug，让我对异常有了更深入的认识，必须要对可能产生异常的地方进行异常处理，否则可能给程序造成灾难，就像昨天，因为写的filecopy函数没有做异常捕获处理，导致复制文件出错时整个程序崩溃，用户只能通过杀进程的方式重启程序再进行其它操作（汗~）。后来对程序进行异常处理，遇到意外只是提示下用户，然后可以继续运行下...
Delphi中的异常处理
fangyuan621的专栏
02-15 1363
转载：http://www.cnblogs.com/doit8791/archive/2012/05/08/2489471.html 以前写Delphi程序一直不注意异常处理，对其异常处理的机制总是一知半解，昨天程序中的一个bug ，让我对异常有了更深入的认识，必须要对可能产生异常的地方进行异常处理，否则可能给程序造成灾难。 就像昨天，因为写的 filecopy 函数没有做异常捕获处理，导致复制文件出错时整个程序崩溃，用户只能通过杀进程的方式重启程序再进行其他操作。后来对程序进行了异常处理，遇到意外时只
Delphi try except捕获异常
PleaseGo的博客
02-23 533
Delphi try except捕获异常
【转载】Delphi异常处理try except语句和try finally语句用法以及区别
weixin_30710457的博客
12-30 521
Delphi异常处理try except语句和try finally语句用法以及区别 一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!) 一、异常的来源　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。　　　　（1）文件处理　　　　（2）内存分配　　　　（3）Windows...
Delphi异常处理机制
chelen_jak的专栏
12-07 1531
转自：http://blog.sina.com.cn/s/blog_5d9ee55e010103kr.html   Delphi的异常处理方式有两种：try...except...end;try...finally...end;。try...except主要用于捕获异常，只有出现异常的时候才会执行except部分。try...finally主要用于资源释放，无论try语句块是否有异常都
Delphi Try Except 实例
qq_43466604的博客
11-02 3748
try   except     raise Exception.Create('123');     exit;   end;     try   except     ShowMessage(Exception(ExceptObject).Message);     exit;   end;   try except on e:Exception do be...
delphi中Try...Except 语句和Try...Finally 语句
找个地方放一下
09-14 1464
在Try...Except 语句中可以进行抛出异常和处理异常的工作。Try...Except 的一般形式如下：  try Statements1; except on Exception1 do HandleStatements1; on Exception
Delphi 5编程实例与技巧
05-20
2.4.3 try...finally语句 47 2.5 方法与技巧 48 2.5.1 命名规则 48 2.5.2 在编译时自由设置是否获得提示 信息 48 2.5.3 使用代码模板 49 2.5.4 使用动态多维数组 49 2.5.5 定义两个相互包含的类 50 2.5.6 获取和使用...
Delphi7.完美经典
09-25
15-2 Delphi的Database Desktop使用方法 15-2-1 字段定义 15-2-2 输入数据 15-2-3 设置BDE数据库别名与连接数据库 第16章 Delphi数据库程序设计——使用BDE组件 16-1 TDataSet组件 16-1-1 TDataSet组件常用...
delphi异常捕获try except语句 和 try finally语句用法
qq_38472451的博客
04-10 183
delphi异常捕获try except语句 和 try finally语句用法
delphi关于try的正确句法结构
pulledup的博客
08-01 2358
delphi关于try的正确句法结构 1、句法 var LResult:Variant; //......你在该函数内部需要创建的各类型的实例 try try //......写与这些创建的各类型的实例相关的代码 except on E: ESafecallException do ; //:比方 on E: EObjectDisposed do ; //:比方 on E: EAcc
Delphi try finally语句使用
最新发布
PleaseGo的博客
02-27 435
在Delphi中，try-finally语句用于执行一段代码，无论是否发生异常都要执行finally块中的代码。try块中的代码可能会引发异常，而finally块中的代码总是会在try块执行完毕后被执行。在这个示例中，try块中放置的是可能会引发异常的代码，而finally块中放置的是无论是否发生异常都要执行的代码。在try块执行完毕后，无论是否发生异常，都会执行finally块中的代码。需要注意的是，try-finally语句只能处理异常，而不能处理异常的信息。
delphi中try的用法1
weixin_34167819的博客
11-08 752
try...except..end;查询异常 try edHH.Visible := False; ListBox.Visible := not edHH.Visible; listBox.Clear; I := 0; while not Eof do begin SendToExeLog(...
delphi中的异常捕捉except、finally、exit、abort、halt等
yangwanli2010的博客
12-08 587
delphi中的异常捕捉except、finally、exit、abort、halt等
Delphi中try except语句档出现异常时终止程序应该怎么写
02-13
在Delphi中，可以使用try-except语句来捕获和处理异常。当try块中的代码发生异常时，程序会跳转到对应的except块中进行异常处理。如果你想在异常发生时终止程序，可以在except块中使用Halt函数来实现。 以下是一个示例代码： ```delphi try // 可能会发生异常的代码 except // 异常处理代码 Halt; // 终止程序 end; ``` 在上述代码中，当try块中的代码发生异常时，程序会跳转到except块中进行异常处理。然后，使用Halt函数来终止程序的执行。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值