想請問一下 在Delphi中的for迴圈 它的遞增/減的數值 只能為1嗎？

好像只能为1！ 格式如下： for counter := initialValue to finalValue do statement or for counter := initialValue downto finalValue do statement 如果想数值变化由自己定，您就用 while 循环来实现 發表人 - sos_admin 於 2004/07/17 23:07:12

在 for 迴圈裡  加上一行判斷式 以 if i mod 2=0 來判斷，表示step 2 以 if i mod 3=0 來判斷，表示step 3 試試看吧    

要做到遞增/減的數值 <> 1, 您可以在迴圈內自行處理, 方式如下

var i, j: Integer;
begin
  j := 2; // 自行定義的變量
  for i:=1 to 10 do begin
    showmessage(i * j);
  end;
end;

不好意思，插個花: 在Object Pascal中，可以使用for to/down to do，while...do和repeat...until三種方式來實現迴圈控制. 先來看看For:

var
  I: Integer;
begin
  for I := 0 to 10 do   
    DoSomething;
end;

I從0遞增到10,DoSomething被執行了11次，或者用for I := 10 downto 0 do,I從10遞減到0，DoSomething也同樣被執行了11次. 使用For方式要注意的是:迴圈變數的步長(step)是固定爲1的，無法改變；不能在迴圈塊中用代碼改變迴圈變數的值 那我們再來看看while:

var
  I: Integer;
begin
  I := 0;
  while I <= 10 do   //等價於for I := 0 to 10 do
  begin
    DoSomething;
    Inc(I);
  end;
end;

while方式的特點是可以自己控制迴圈因數的變化，和for相比，靈活性更大 而repeat是從while演化而來的.while首先判斷條件是否成立再執行，而repeat是首先執行，再判斷條件是否成立:

var
  I: Integer;
begin
  I := 0;
  repeat          //等價於while I <= 10 do
    DoSomething;
    Inc(I);
  until I = 10;
end;

終上所述，晚輩覺得Object Pascal 中的for迴圈語句其靈活性比其他語言小（它不能指定1之外的步長(step),如果是是在BCB中用for(int i=0; i <= 10; i =step)就可以表達出來了），不過簡單也容易理解。如果需判斷的條件比較複雜，或想自定義計數器，你可以用while語句或 repeat 語句，而不是for迴圈語句。 那要如何在while或repeat中使用自定義的步長(step)呢？不妨參考一下下面的code:

var
  I: Integer;
begin
  I := 0;
  while I <= 10 do
    I := I   2;         //這裏假設步長(step)爲2
    DoSomething;
  end;
end;

晚輩也是略知Object Pacal皮毛，至今仍不得其博大精深的要領，所以我上面的描述有謬誤的地方，還請站內各位前輩斧正，謝謝！！！ < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？