我是个DELPHI初学者.下载了一个浏览器的源码回来学习.用delphi进行调试运行.出现如下提示: project browser.exe raised exception class elisterror with message "List index out of bound(4)"porcess stopped. use step or run to continue. 我再按运行之后就可以功能全部实现了.但是直接运行.exe那个程式就出现如下提示: list index out of bounds(4) 希望高手们不吝赐教.谢谢

我是个DELPHI初学者.下载了一个浏览器的源码回来学习.用delphi进行调试运行.出现如下提示: project browser.exe raised exception class elisterror with message "List index out of bound(4)"porcess stopped. use step or run to continue. 我再按运行之后就可以功能全部实现了.但是直接运行.exe那个程式就出现如下提示: list index out of bounds(4) 希望高手们不吝赐教.谢谢

Hi,jion_boy，您好！ 錯誤資訊:list index out of bounds(4)代表您的list index已經越界了 看看下面這個簡單的例子: 在Form1上放入一個StatusBar1，然後打開StatusBar1的Panels Editor對話方塊，建立兩個StautsPanel，然後雙擊Form1，添加如下代碼:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[2].Text := DateTimeToStr(Now());
end;

然後Run，就會彈出一個出錯框: project project1.exe raised exception class elisterror with message "List index out of bound(2)"porcess stopped. use step or run to continue. 爲什麽會這樣呢？因爲StatusBar1中只有StautsPanel[0]和StatusPanel[1]，不存在StatusBar[2]，但是我在code中又使用到了它，所以就會發生越界錯誤，把code改爲StatusBar1.Panels[0].Text := DateTimeToStr(Now());或者StatusBar1.Panels[1].Text := DateTimeToStr(Now());就不出出現上述的錯誤了 請您檢查一下程式中是否有類似的這種現象存在(我經常打腫臉充胖子，如有謬誤，請大大們多多指教！) < class="code"> =============== 人生在勤,不索何获? ===============

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

bigdogchina,您好: 我按您的方法去找了好久,可是我能力太低,找不出來.現附上源碼,大大們可以幫我找找嗎？我懷疑是Panel1裏的WebBrowers有錯.可是就是不會改.謝謝！！！ http://boan.nease.net/soft/code.txt

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.