一个小问题？？？？？？？？？？？？？

Question

函数定义如下：
function findsame(fq_no:integer;fq_type:string;priorec:integer;currentrec:integer):integer;
编译出错如下：
[Error] Unit1.pas(58): Statement expected but 'FUNCTION' found
请问该如何是好？

Answer 1

声明:function findsame()
然后:funtion Tform1.findsame()

Answer 2

你function前面的那个procedure 或者function
少end;
function被包含进前一个procedure 或者function里了
好好查查end;