公用程序的問題 |
|
kkym
一般會員 ![]() ![]() 發表:17 回覆:13 積分:6 註冊:2003-04-16 發送簡訊給我 |
大家好,我想做一個公用程序(按鈕),我找了本網站的文章,也照著做、、但是出錯,一直無法試出來,所以還是跟大家請教。
主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' 麻煩大家教我一下,我哪裡有問題。
非常謝謝
|
kkym
一般會員 ![]() ![]() 發表:17 回覆:13 積分:6 註冊:2003-04-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |