大家好，我想做一個公用程序（按鈕），我找了本網站的文章，也照著做、、但是出錯，一直無法試出來，所以還是跟大家請教。 主FORM： var mainForm: TmainForm; procedure ButtonDisplay(DataSet: TDataSet; btAppend, btDelete, btEdit, btPost, btCancel: TSpeedButton); implementation procedure ButtonDisplay(DataSet: TDataSet; xbtAppend, xbtDelete, xbtEdit, xbtPost, xbtCancel: TSpeedButton); begin if DataSet.State in [dsInsert,dsEdit] then begin xbtAppend.Enabled := False; xbtDelete.Enabled := False; xbtEdit.Enabled := False; xbtPost.Enabled := True; xbtCancel.Enabled := True; end else begin xbtAppend.Enabled := True; xbtDelete.Enabled := True; xbtEdit.Enabled := True; xbtPost.Enabled := False; xbtCancel.Enabled := False; end; end; 在其他的FOM procedure Tccc.DataSource1StateChange(Sender: TObject); begin ButtonDisplay(query1 , btAppend, btDelete, btEdit, btPost, btCancel); end; 會一直出錯，無法編譯 底下是錯誤訊息 [Error] Unit1.pas(37): E2037 Declaration of 'ButtonDisplay' differs from previous declaration [Error] Unit1.pas(41): E2003 Undeclared identifier: 'xbtAppend' [Error] Unit1.pas(42): E2003 Undeclared identifier: 'xbtDelete' [Error] Unit1.pas(43): E2003 Undeclared identifier: 'xbtEdit' [Error] Unit1.pas(44): E2003 Undeclared identifier: 'xbtPost' [Error] Unit1.pas(45): E2003 Undeclared identifier: 'xbtCancel' [Error] Unit1.pas(49): E2066 Missing operator or semicolon [Error] Unit1.pas(50): E2066 Missing operator or semicolon [Error] Unit1.pas(51): E2066 Missing operator or semicolon [Error] Unit1.pas(52): E2066 Missing operator or semicolon [Error] Unit1.pas(53): E2066 Missing operator or semicolon [Fatal Error] chsing01.dpr(8): F2063 Could not compile used unit 'Unit1.pas' 麻煩大家教我一下，我哪裡有問題。 非常謝謝

站長大人，對不起，放錯主題區了，對不起