小的程式是做光學追跡的.這個程式是先輸入曲率半徑r.距離d和介質nd 然後執行正向和逆向追跡都很正常.可是執行圖形時當輸入超過12面時執 行圖形會出現 Access violation at address 400EE72E in module 'vcl60.bpl' read of address 3FDSC66F 11面以下卻可以正常執行圖形.希望各位前輩可以指點新手一下~謝謝 發表人 - 冰冷的心 於 2004/08/06 01:34:53

附加檔案：54334_project.rar

Hello,    程式碼判斷的地方有點錯:

    if (r1[0]==1) //少加一個=
    {
    //r所有值互換*-1
        for (w=0;wz;g  ,b--)
            {
              temp=StrToFloat(sg1->Cells[1][g]);
              sg1->Cells[1][g]=sg1->Cells[1][b];
              sg1->Cells[1][b]=FloatToStr(temp);
            }
         }

另外,可否告知你的程式裡面的值該怎麼填?

感謝nlj859前輩幫小的檢查程式 您說的值是指r d nd 這些值嗎?? 如果是的話r是填10~250之間 d沒有限制.可是執行太多面的話最好小一點.不然圖會跑出Image1外面.nd是隨便選內定的介質都可以 如果小的說的值不是您所說的值.可否在說明一下?謝謝前輩抽空幫小的忙

Sorry,我太笨了,我還是不會玩你的程式.>_< 可否列出一個正確的填值範例?

例如 輸入面數 12 (最高20面..最少3面) 選第一面 曲率 100 距離 10 介質 隨便選一個 加入 這樣左邊就會出現第一面的參數 再選第二面~其他重複 一直選到第12面為止(最後一面只會出現曲率) 然後執行正向追跡~會算出後焦和後主面 逆向追跡~會算出前焦和前主面 再按圖形~正常會出現圖案(可是超過12面就會出現小 的所說的錯誤.11面以下就很正常) 小的表達能力不太好所以前輩才會聽不懂啦~

建議你試試把所有的陣列都加大一些！ 我猜測你可能是在計算過程中，陣列空間不夠，導至你在存取時超出範圍！ 因為你的程式我不會玩@@"！ 剛剛玩了一下下，把你定義的陣列空間加大，好像就不會出現你說的問題！ 請檢查一下你的程式陣列空間會不會超出範圍！ 發表人 - liangnet 於 2004/08/07 17:58:09

請將Unit1.cpp和Unit2.cpp裡面的float nd1[10];改為float nd1[11]; 如果要執行13面就把它改為float nd1[12];依此類推.

謝謝liangnet前輩和nlj859前輩的建議和幫忙~ 小的已經依照nlj859前輩做修改程式.終於可以正常執行了 原來錯在這麼基本的地方.看來我還有很多需要學習的地方阿~ 再次謝謝所有前輩給小的指教^^