Delphi中goto语句用法-南山古桃-关键词：Delphi,goto语句,跳转语句

Delphi中goto语句用法-南山古桃-关键词:Delphi,goto语句,跳转语句

2007年12月26日 星期三 下午 05:59

关键词:Delphi,goto语句,跳转语句

南山古桃(nsgtao) 首先提示一句:能不用goto语句尽量不用!

(**** (**** 转载转载转载敬敬请注明注明－－本文出本文出处处：南山古桃南山古桃((nsgtao nsgtao))的百度空的百度空间间：/nsgtao/ ****) 用goto构成的循环，如下：

（注意：标号需要用label先声明才能使用。）

program use_goto;

{$APPTYPE CONSOLE}

uses

SysUtils;

(**** (**** 转载转载转载敬敬请注明注明－－本文出本文出处处：南山古桃南山古桃((nsgtao nsgtao))的百度空的百度空间间：/nsgtao/ ****) 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.

(**** (**** 转载转载转载敬敬请注明注明－－本文出本文出处处：南山古桃南山古桃((nsgtao nsgtao))的百度空的百度空间间：/nsgtao/ ****) 运行结果：

1

2

3

4

5

6

7

8

9

10

转(/question/1139757.html)