delphi 第4课

try
语句;(正常)
except
语句;
(意外处理部分)

end;

例子:

复制代码
begin  
  sum:=0;
   try  
     n:=strtoint(edit1.Text);
   except 
      showMessage('请输入一个整数');
      exit;
   end;
   i:=1;
   while i<=n do
    sum:sum+i;
   i:=i+1;
end;
复制代码

变量作用域

 

 2018-04-23 22:02:11 

 

posted @   1点  阅读(100)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示