Delphi中如何编写带有双计数器的for循环？（附C++参考示例）

Delphi 的 for 语句语法不支持同时初始化多个变量或执行多个增量操作，要实现你给出的C++双计数器循环逻辑，有两种常用方式：

方法一：使用 while 循环（最贴近原C++逻辑） #

直接模拟C++循环的初始化、条件判断和增量步骤：

var
  i, j: Integer;
begin
  i := 0;
  j := 0;
  while j < 100 do
  begin
    // 这里写你的业务逻辑
    Inc(i); // 等价于 C++ 中的 i++
    Inc(j); // 等价于 C++ 中的 j++
  end;
end;

方法二：使用 for 循环同步变量 #

如果更习惯用for循环，可以以其中一个变量作为循环控制变量，在循环体内同步更新另一个变量：

var
  i, j: Integer;
begin
  i := 0;
  for j := 0 to 99 do // j从0到99，正好执行100次，对应原代码j<100的逻辑
  begin
    // 这里写你的业务逻辑
    Inc(i);
  end;
end;

两种方式最终的执行逻辑和你给出的C++代码完全一致，可根据习惯选择使用。

内容的提问来源于stack exchange，提问作者steve.b