Delphi 中带有两个计数器的 for 循环

Question

我是 Delphi 的新手，所以我对我的问题的平庸表示歉意。

如何在 Delphi 中编写带有两个计数器的

for

循环，就像 C++ 中的这样：

int i, j;
for (i=0, j=0; j<100; i++, j++) {
//do something
}

谢谢

Answer 1

你必须像这样“展开”循环：

VAR I := 0;
FOR VAR J:=0 TO 99 DO BEGIN
  // Do Something
  INC(I)
END;