delphi里面for语法使用时递增是只能1,2,3,...递增码?,能不能递增任意数字呢?(如:1,3,5,7,...).
还有能不能可以做到递减呢? 
for I := 0 to 10 do 
begin 
end:

解决方案 »

  1.   

    Q2for I := 10 downto 0 do
    begin
    ..........
    end;
      

  2.   

    可以用while 
    var
      bytI:byte
    begin
      bytI:=0;
      while bytI<10 do
      begin
         ......
         ///bytI:=bytI+1;
         ///bytI:=bytI+2;
         ///bytI:=bytI+3;  end;
    end;
      

  3.   

    1. for i := 1 to 10 step 2 do //1、3、5、7、9
    2. for i := 10 downto 1 do 
      

  4.   

    不好意思,和VB搞浑了。
    第一个问题,可以在循环内部调整
    for i := 1 to 10 do begin
      if i Mod 2 = 0 then Continue;
      .....
    end;
      

  5.   

    如果一定要用for 也可以这样for bytI:=0 to 10 do
    begin
      ///mod 求模
      if byt mod (你要递增的数)= 0 then
      begin
        .....
    ///////
      end;
    end
      

  6.   

    用WHILE do
    里面加个inc(i,2)
      

  7.   

    4楼的正解,呵
    1.   for   i   :=   1   to   10   step   2   do   //1、3、5、7、9
    2.   for   i   :=   10   downto   1   do  
      

  8.   

    第一个问题:建议改用其它的循环语句,或者在for内部加上判断,如果为偶数,就进行下一次循环(continue);
    第二个问题:像大家说的一样,用downto就行。