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.
 

相关阅读 >>

你的软件源代码安全吗？

Delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标

Delphi xe5 安卓设置屏幕横屏竖屏

Delphi 开发安卓时判断进入非活动

Delphi 字符串操作之格式化

Delphi2009之timage

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi 解析系统环境变量

Delphi 调用wmi信息判断系统师傅安装杀毒软件

Delphi 在windows右键菜单中加上关联

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

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