delphi中goto的用法

用goto构成的循环，如下：
（注意：标号需要用label先声明才能使用。）

program use_goto;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i:integer;
label
  outer,loop_start;
begin
  i := 1;
loop_start:
  if (i > 10)
  then
    goto outer;
  writeln(i);
  inc(i);
  goto loop_start;
outer:

  readln;
end.

运行结果：
1
2
3
4
5
6
7
8
9
10

 

// goto书写结构:

 

label

       w,r; //先声明标号；

begin

       w:   //冒号结尾；

//.............代码块；

    goto r;     //分号结尾；