易语言填表自动点击:delphi中goto的用法

来源：百度文库编辑：杭州交通信息网时间：2024/05/13 20:11:51

用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

delphi中goto的用法 DELPHI 中 BAIDU控件的用法 asp中 goto的使用方法 RegEnumValue 的 Delphi 用法有人知道Delphi 中not的用法吗？ delphi 中的 sendmessage 的用法 authorware中，强制返回的命令是“goto****”？？ goto语句的使用关于DELPHI调用存储过程的用法？？ delphi问题--table表中lookup属性用法