[code delphi]
procedure TfrmMain.Button1Click(Sender: TObject);
var
sum, index: integer;
NumberList: array[0..4] of integer;
begin
NumberList[0] := 0;
NumberList[1] := 0;
NumberList[2] := 1;
NumberList[3] := 1;
NumberList[4] := 1;

sum := 0;
for index := 0 to 3 do begin
// sum := sum index;
if NumberList[index] = 0 then
ShowMessage('0')
else
ShowMessage('1');
end;
end;
[/code]

日前幫同事 DEBUG
他的程式邏輯就類似上述那個樣子
因為結果不太對，所以就在 for index := 0 to 3 do 那行設中斷點
結果，一 Trace 之下，不得了，index 居然是從 4 開始跑

明明後頭就有 if NumberList[index] = 0 要用到 index
如果 index 從 4 開始跑，那結果怎麼會對？
一開始就猜到是 Delphi 最佳化的問題
所以在 Compiler 中，把 Code Optimization 關掉，果然 index 就乖乖從 0 開始跑

猜測 Delphi 是認為 for-loop 裡沒用到 index
所以才隨便讓 index 從 4 跑 (可是 NumberList[index] 不就有用到 index 嗎？)
我在開啟 Code Optimization 情況下，在 for-loop 硬加上那行 sum := sum index;
果然可以成功讓 index 從 0 開始跑

事後，同事是發現有一個地方寫錯
修改了一下，就得到正確的結果，就沒有去深思
這段 Code，明明要判斷 NumberList[index] 為什麼 Delphi 還會讓 index 從 4 開始跑

我是一直在思索，Delphi 的最佳化，不太可能會錯
可是我無法解釋為什麼 index 會從 4 開始走，而我的程式碼
明明要讓 index 從 0 開始走，去判斷 NumberList[index]
那，這樣這段程式碼的結果，怎麼會對？

各位可以實驗看看

--
事後我是發現，不管 Delphi 讓 index 從 0 開始，還是從 4 開始
都會得到正確的結果，所以 Delphi 的最佳化還是正確的，沒有問題
只是，為什麼 if NumberList[index] 會得到正確的結果呢？(明明 index 的值，因為最佳化變了啊？)
我是有想到一個解釋啦，不過，先賣個關子，讓大家腦力激盪一下

編輯記錄

真的耶.有意思..不知是如何最佳化的.....

我測試...我的不會也...@@
測試環境：XP D7

------
初學、初學、學了很久...還是在初學階段..Orz

我之前再使用最佳化的時候也有許多問題
之前解決的方法是將最佳化關掉
而目前下載安裝update7.1後用到現在還沒有出現問題
希望對你有幫助

可以從程式底層下手（組合語言）
可以嘗試在for index := 0 to 3 do begin 這設中斷點 然後點選view/degbu windows/cpu
然後一步一步偵錯 找出最佳化和未最佳化的差別
至於詳情只能意會 不能言傳.

http://www.drbob42.com/delphi/perform.htm

Loop Induction Variables
The compiler automatically uses loop induction variables as a way to speed up access to arrays or strings within loops. If a variable is used only as an index into an array, for example in a for loop, the compiler will "induce" the variable, eliminating multiplication operations and replacing them with a pointer that is incremented to access items in the array. In addition, if the variable size is a 1, 4 or 8, Intel scale indexing is used to provide additional performance benefits.