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;

变量作用域

delphi 第4课_编程

 

 2018-04-23 22:02:11 

 

越努力越幸运