频道分类

delphi Goto 语句的使用

作者:admin 来源: 日期:2021/1/11 22:03:49 人气: 标签:

 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 中 unicode 转汉字 函数下一篇:没有资料