看看这样?
for i:=0 to 19 do
begin
  a:=i*5;
  ......
end;

解决方案 »

  1.   

    Dlephi中的循环变量只能是整数!
      

  2.   

    var I: Integer;0Dbegin
      I := 0;
      while I < 100 do
      begin
        Inc(I,5);
        //代码
      end;
    end;
    —————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
    I.Desire := '加不加分随你';
    —————————————————————————————————
           
      

  3.   

    var I: Integer;0Dbegin
      I := 0;
      while I < 100 do
      begin
        Inc(I,5);
        //代码
      end;
    end;
    —————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
    I.Desire := '加不加分随你';
    —————————————————————————————————
           
      

  4.   

    要实现步进,也很简单。
    For i:=0 to 100 do
    begin
      ......
      i:=i+1;
    end;
    你只要在循环体中改变循环变量的值就行了。注意:本例中的步长为2。
      

  5.   

    For i:=0 to 100 do
    begin
      ......
      i:=i+4;
    end;
      

  6.   

    没有step;
    上边的也是写错的,它不让loop里响应I的给值