2的倍数for循环delphi

Question

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

Answer 1

您当然可以只使用 while 循环。

i := 0;
while i < 6 do
begin
  Memo1.Lines.Add(IntToStr(i))
  Inc(i, 2);
end;

For loop in multiples of 2 delphi