delphi Goto 语句的使用

最新推荐文章于 2025-05-16 20:58:12 发布

iteye_18800

最新推荐文章于 2025-05-16 20:58:12 发布

阅读量2.9k

点赞数

文章标签： c/c++

本文介绍了Goto语句的基本概念及其使用方式，并提供了一个具体的示例程序。文章强调了Goto语句虽然能实现程序的跳跃执行，但由于其可能带来的调试困难和程序行为不确定性，一般不建议使用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.