Delphi 系统[11]关键字和保留字 goto、label

Delphi 系统[11]关键字和保留字  goto、label

1、定义：

• goto  ：无条件跳转 
• label ：定义跳转标签，goto 语句只能跳转到已定义的标签位置。 

2、语法示例：

label labelxx; //定义跳转标签
goto label;  //跳转到已定义的标签位置
labelxx: statement; //标签位置　　

3、示例：

procedure TForm1.Button1Click(Sender: TObject); 
label  LaA;   //定义LaA标签
var 
  I, iNum: Integer; 
begin 
  I := 0; 
  iNum := 0; 
LaA: 
  inc(I); 
  iNum := iNum + I; 
  if I < 10 then 
    goto LaA; 
 
  Caption := IntToStr(iNum);  { 结果： 55 } 
end; 

　　

 

 

 

创建时间：2021.08.11　　更新时间：