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 一行一行读取txt文件

Delphi 本地数据库备份与还原(Delphi)

Delphi xe7检查android蓝牙权限

Delphi xe2 - 实现无敌关机键

在 Delphi 中使用微软全文翻译的小例子

Delphi通过spcomm com口发短信包括pud编码解码

Delphi滚动窗口标题

Delphi 存储文件到数据库

Delphi调用rest

Delphi用idhttp.get访问一个网址返回403错误，但用ie浏览器访问正常

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

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