2delphi的倍数for循环
Delphi 的新手，我如何让 for 循环以 2 的倍数而不是 1 的倍数递增？所以而不是：
procedure TForm1.button1click(Sender TObject);
var
i, x: integer;
begin
for i := 0 to 5 do;
x := IntToStr(i);
memo1.add.lines(x);
end;
所以，而不是在备忘录框中的输出是 0 1 2 3 4 5
这将是
0 2 4
回答
您当然可以只使用while循环。
i := 0;
while i < 6 do
begin
Memo1.Lines.Add(IntToStr(i))
Inc(i, 2);
end;
- 不，您不必使用`while` 循环。
- `while` 循环在这里比复杂的 `for` 循环版本更可取。但是 `Inc` 是增加变量的惯用方法。