请问在delphi中实现循环时（比如for循环），能否简单的设定步长？

[vericky]

就像c中

for ( i = 0; i < XXX ; i += 2)

[lastshrill]

好像不行
用While吧

[newwen]

delphi 2以后不行
可以用while或for i:=0 to xxx div 2 do,然后用另一个变量如x=i*2

[王集鹄]

for I := 0 to N div 2 do
使用(I * 2)

[hammer_shi]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do//递增
begin

end;
for i:=100 downto 1 do //递减
begin

end;
end;

[dreamfan]

不知道

[nne998]

Yes!

[Larky]

没有简单的办法只能自己哦

[everydayniceday]

我查了一下，好像没有提供这样的循环，不过没关系
for i:=start to count do
begin
j:=start+i*step;
//...使用j作为你要用到的循环变量
end;

[milpas]

楼上的方法基本上都行得通,哈哈

[hammer_shi]

不对，我的不行：（刚才的，现在可以）
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do//递增
begin
if (i mod 2=0) then //步长为2
begin
//do what you want
showmessage(inttostr(i));
end;
end;
for i:=2 downto 1 do //递减
begin
if (i mod 3=0) then //步长为3
begin
//do what you want
showmessage(inttostr(i));
end;
end;
end;

[vericky]

哦，知道了。