2 delphi 的倍数 for 循环

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;