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

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

1、定义：

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

2、语法示例：

?

1 2 3

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

3、示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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　　更新时间：