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用邻域平均法对图像进行平滑处理

Delphi 注入不用writeprocessmemory 函数

Delphi 动态生成进度条窗体

Delphi 如何使用通配符删除文件

Delphixe firemonkey 如何画图

Delphi字符串旋转任意角度

Delphi xe tbitmap支持gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

idhttp控件的防止异常的处理

Delphi使用idhttp模拟提交页面方法总结

Delphi编写的lpk.dll专杀，可清理rar

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

转载请注明出处：木庄网络博客 » Delphi 多重循环