怎样声明goto语句的标号？

Question

goto语句在使用之前需要先声明一个标号，执行goto语句时转移到为其声明的标号，怎样声明goto语句的标号？

Answer 1

例如:label
  Jump1, Jump2;
begin
  ......
  Jump1:
    goto Jump2;
  ......
  Jump2:
    goto Jump1;
  ......
end;

Answer 2

正解，不过现在很少用goto语句的。不安全。

Answer 3

2楼正解，goto能不用尽量别用

Answer 4

如此看来使用一个goto语句，至少需要定义两个—Jump1, Jump2，
一个是goto语句开始的位置，一个是goto语句进入的位置，这样才能完成一个转向？
Jump1:
    goto Jump2;

Answer 5

不对，一个goto只要定义一个label就行，也就是目标地址，goto的位置无需定义
例如：
procedure aaa;
label 
  mylabel; 
begin 
  ...... 
  goto Jump2; 
  ...... 
mylabel: 
  ...... 
end; 

Answer 6

不对，一个goto只要定义一个label就行，也就是目标地址，goto的位置无需定义 
例如： 
procedure aaa; 
label 
  mylabel; 
begin 
  ...... 
  goto mylabel; 
  ...... 
mylabel: 
  ...... 
end; 

Answer 7

mylabel: 后跟一个语句，转到这句开始运行？

Answer 8

procedure TForm1.Label1Click(Sender: TObject); 
label 
  mylabel; 
begin 
mylabel:if  F= True then 
form3.show 
else 
form2.show;  //登陆验证窗体 
goto mylabel; end; 
这样改是希望form2.show验证通过后，继续执行goto mylabel，这样就会执行form3.show，但是登陆窗体验证通过后，程序并不能返回到原来form2.show; 后面的位置继续执行。

Answer 9

适当的使用goto,会使你和程序增色不少