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 xe 启动关闭start page 页错误提示

Delphi拖动窗体超简单实现

Delphi 免杀下载者源代码

Delphi网络英汉字典代码

base64.pas

Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi中通过tclientsocket获取公网(wan)ip地址

Delphi取得当前目录的上一级目录

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

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