delphi Goto 语句的使用

Goto语句可使程序离开当前位置直接跳至某个特定的语句执行，其形式为：

goto label;

后面的label表示语句标签，执行goto语句会直接导致程序跳到lable标记的位置。
大部分能够声明变量的地方都可声明一个标签，声明格式为:

label 标签；

标签可以是任何一个合法标识符或一个0至9999间的数值。理所当然，Goto语句及其中
的标签必须在当前范围内必须都有效，鉴于此，在窗体程序中不能定义一个全局标签，除
非是在单元的initialization及finalization部分。
由于Goto语句不利于程序的调试，而且它会造成程序的某些不可捉摸的行为，所以不
推荐使用Goto语句。
下面是Goto使用的一个例子：

program TestGoto;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  i:Integer;
label 1,2;
begin
  try
    1:Writeln('请输入i的值:');
    Readln(i);
    if i<>0 then
    begin
      goto 1;
    end;
    Exit;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.