Question

delphi 函数声明怎么写？

用delphi进行信息系统编写，数据库配置部分用的是datamodule，ADO控件都放在这里，用来访问和修改数据库，现在要在datamodule.pas写各个响应函数，请问函数声明要怎么写？写哪里？（应该是别的单元也要可见的）
例如这个函数
function TDM.CheckReaderLendBookName(readercardid,bookid:string):boolean;
var
Query:TADOQuery;
begin
Query:=TADOQuery.Create(self);
Query.Connection:=dm.ADOConnection1;
Query.SQL.Text:='select bookid form lend_book where readercardid=:id'+'and bookid=:bookid and state=1';
Query.Parameters.ParamByName('id').Value:=readercard;
Query.Parameters.ParamByName('bookid').Value:=bookid;
Query.Open;
if not (query.RecordCount>0) then
Result:=false
else
result:=true;
Query.Close;
Query.Free;
end;
我需要在代码开头写声明吗？怎么写？写哪儿？interface那里吗？

Answer 1

implementation 和interface 之间

function CheckReaderLendBookName(readercardid,bookid:string):boolean;