Delphi goto语句用法

本文整理自网络，侵删。

 
program ExitLoop;
{$APPTYPE CONSOLE}
label
  CN;
begin
  for var i:=1 to 10 do
    begin
      for var l:=1 to 10 do
        begin
          Writeln(i, ',' , l);
          if (i = 5) and (l = 5) then
            goto CN; // goto 
        end;
    end;
  CN:
  Writeln('Done.');
  Readln;
end.
 

相关阅读 >>

Delphi整理五（枚举、子界、集合）

Delphi打印各类文档

Delphi string转为olevariant

Delphi string与tstringlist

获取剪贴板文字内容的代码

Delphi 能否把.txt文件的数据导入到access数据库中

Delphi unigui 路径

Delphi 获取cpu占用时间

Delphi动态创建组件，并释放内存

Delphi 关闭所有正在运行的程序

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi goto语句用法