procedure TInputDlg.ComboBox1Exit(Sender: TObject);
begin
with DataModule1.ADOquery1 do
begin
close;
sql.clear;
sql.add('select * from Comp_Pipe_Name where field =:Pipe_Name');
parameters.ParamByName('Pipe_Name').value:=combobox1.text;
open;
end;
if DataModule1.ADOquery1.recordcount>0 then
begin
Application.messagebox('已经输入过此数据','提示',0+mb_iconquestion) ;
combobox1.setfocus;
combobox1.text:='';
end;
end;
----------------------------------------------------------------------------------------
下面我想在主程序里调用这个函数（祝程序就是用来往数据库的表里存数据的），主程序是这样的：
begin
if InputDlg.ShowModal = mrok then
begin
Close;
SQL.Clear;
with DataModule1.ADOQuery1 do
begin
if not TInputDlg.ComboBox1Exit(string,Tobject) then-------------我感觉引用这好像不太对
SQL.Add('Insert Comp_Pipe_Name(Pipe_Name) Values(:a)');
Parameters.ParamByName('a').value:= InputDlg.ComboBox1.Text;
ExecSQL;
end;
end;
end;
-----------------------------------------------------------
结果编译不过去啊，[Error] digitizer_input.pas(69): Declaration expected but end of file found
请问高手是哪里的毛病呢，调用的不对，还是有逻辑错误。
