小弟在run完程式後 按關閉 出現下圖的錯誤 請問是哪邊有問題啊???     另外 以下是小弟用到EOF 及 BOF 的程式碼 <不知錯誤是否跟以下的程式有關> procedure TForm1.ToolButton2Click(Sender: TObject); begin CanEdit := False; ADOTable1.Prior; if ADOTable1.Bof then showmessage('已再資料庫的第一筆處了'); ToolButton3.Enabled:=true; ToolButton4.Enabled:=true; if ADOTable1.FieldByName('img_filename').asstring='' then image1.Picture:=nil; end; procedure TForm1.ToolButton3Click(Sender: TObject); begin CanEdit := False; ADOTable1.Next; if ADOTable1.Eof then begin ToolButton3.Enabled:=false; ToolButton4.Enabled:=false; showmessage('已再資料庫的最後一筆處了'); end else begin ToolButton3.Enabled:=true; if ADOTable1.FieldByName('img_filename').asstring='' then image1.Picture:=nil; end; 麻煩各位大大了 多謝

善用搜尋, 參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30111 --- Everything I say is a lie.

Sorry hagar大大 小弟以後會先搜尋一下這 多謝你