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

最新推荐文章于 2024-09-14 09:56:58 发布
最新推荐文章于 2024-09-14 09:56:58 发布
阅读量326 收藏 1
点赞数
原文链接：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
关注
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异常处理try except语句和try finally语句用法以及区别
weixin_30710457的博客
12-30 570
Delphi异常处理try except语句和try finally语句用法以及区别 一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!) 一、异常的来源　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。　　　　（1）文件处理　　　　（2）内存分配　　　　（3）Windows...
Python中的“Try...Except...Finally”：掌握异常处理的艺术
最新发布
qq_44771627的博客
09-14 358
在编写程序时，经常会遇到各种预料之外的情况，比如文件读取失败、网络连接中断等。如果不加以处理，这些异常可能会导致程序崩溃或行为异常。这时，“Try...Except...Finally”结构就显得尤为重要了。它不仅能够优雅地捕捉并处理错误，还能保证某些关键操作（如资源清理）始终被执行，从而提高程序的稳定性和用户体验。
delphi中Try...Except 语句和Try...Finally 语句
找个地方放一下
09-14 1545
在Try...Except 语句中可以进行抛出异常和处理异常的工作。Try...Except 的一般形式如下：  try Statements1; except on Exception1 do HandleStatements1; on Exception
Delphi Try Except 实例
qq_43466604的博客
11-02 3846
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甄选..docx
12-22
它主要涉及到`try`、`except`和`finally`这三个关键字，以及如何定义和处理自定义异常。 1. **异常的来源**： 在Delphi程序中，异常可能源于多种情况，例如文件操作失败、内存分配问题、Windows资源管理、对象或...
Delphi异常处理：try_except与try_finally深度解析
"Delphi异常处理机制...总结，Delphi的异常处理机制包括try_except和try_finally语句，它们各自负责异常处理和资源管理，结合使用可实现更精细的控制。理解并熟练运用这些机制对于编写健壮的Delphi应用程序至关重要。
delphi try except 和try finally
02-08
Delphi中的异常处理主要通过try-except和try-finally语句来实现。 1. try-except语句用于捕获和处理异常。在try块中编写可能引发异常的代码，如果发生异常，则会跳转到最近的except块，并执行相应的异常处理代码。...
Delphi try except捕获异常
PleaseGo的博客
02-23 1478
Delphi try except捕获异常
delphi关于try的正确句法结构
pulledup的博客
08-01 2458
delphi关于try的正确句法结构 1、句法 var LResult:Variant; //......你在该函数内部需要创建的各类型的实例 try try //......写与这些创建的各类型的实例相关的代码 except on E: ESafecallException do ; //:比方 on E: EObjectDisposed do ; //:比方 on E: EAcc
Delphi异常处理try except语句和try finally语句用法以及区别
自由时间
04-06 3567
Comments一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下!主要是前面小部分,后面的是详细说明(很啰嗦!)一、异常的来源　　在Delphi的应用程序中，下列的情况都比较有可能产生异常。　　　　（1）文件处理　　　　（2）内存分配　　　　（3）Windows资源　　　（4）运行时创建对象和窗体　　　　（5）硬件和操作系统冲突　　　　　二、异常的处理
Delphi try except 与 finally的区别
PORSCHE~
10-12 437
//www.wanyouc.com  www.cnhgds.com  www.yunweis.comwww.44dnf.comtry//尝试执行       {SomeCode}      except//出错的时候执行, Except有特定的错误类型        {SomeCode}      end;      try//尝试执行   {SomeCode}      finally//无论如何都强制执行   {SomeCode}      end; //www.wanyouc.com  www.cnh
delphi异常捕获try except语句 和 try finally语句用法
qq_38472451的博客
04-10 217
delphi异常捕获try except语句 和 try finally语句用法
(delphi11最新学习资料) Object Pascal 学习笔记---第9章第1节（Try-Except块）
langfengyl的专栏
04-09 812
当然，这通常是你想要的，因为你想知道异常发生的位置，并逐步查看处理程序的调用过程。如果出现错误，试图处理错误条件并返回到导致错误的语句是非常危险的，因为此时程序的状态很可能是未定义的。​ 像上面的代码那样 "沉默 "异常并将结果设置为零，在实际应用中并没有太大意义（因为向用户掩盖这样的错误通常是不好的做法），但这段代码的目的是帮助你理解简单场景中的核心机制。​ 正如您所看到的，程序使用随机生成的值，因此当您点击按钮时，您可能处于有效状态（3 次中的 2 次），也可能处于无效状态。
delphi中try的用法1
weixin_34167819的博客
11-08 789
try...except..end;查询异常 try edHH.Visible := False; ListBox.Visible := not edHH.Visible; listBox.Clear; I := 0; while not Eof do begin SendToExeLog(...
DELPH Try使用方法
吹口哨的兔子
03-18 435
1、普通的异常处理方法 try //在这一步出错了 except on e:Exception do //捕获异常 begin showMessage(e.message); end; end; 2、主动抛出异常,并自定义异常名称 try raise exception.create('发现异常'); //在try语句块中抛出一个异...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值