本文整理自网络,侵删。
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 indy 10tidftp中的directorylisting使用
Delphi读写文本文件 assignfile reset append
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
更多相关阅读请进入《Delphi》频道 >>