Delphi 多重循环


本文整理自网络,侵删。

 
program ExitLoop;
{$APPTYPE CONSOLE}
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

        end;
    end;

  Writeln('Done.');
  Readln;
end.

相关阅读 >>

Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题

Delphi webbrowser 无法调用当前浏览器的版本

Delphi excel数据导入数据库表

Delphi中单独编译pas生成dcu文件

Delphi中嵌入汇编检测是否在虚拟机里运行

Delphi 用拼音首字符检索汉字的源代码

Delphi copy 从字符串中复制指定范围中的字符

Delphi 安卓开发 ioutils文件说明

Delphi窗体显示echarts图表

Delphi idsmtp发送邮件的问题

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...