delphi 第4课

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

end；

例子：

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

变量作用域

2018-04-23 22:02:11