本文整理自网络，侵删。
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.
相关阅读 >>
Delphi 拖动文件到exe 打开 获取getcommandline命令行
Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件
关于idtcpserver和idtcpclient对stream的发送与接收问题
indy tidtcpclient 的一个用法上要留意的问题，以及 http
delpni-xe5-android sdk api 层次结构
更多相关阅读请进入《Delphi》频道 >>
