为什么我在type区声明了一个函数，定义后仍提示：不满足的向前或外部说明？？求助……

Question

我在表但type区声明了一个函数，具体如下：
function logfun(struser,strtxtvalue,strkey:string):integer;
然后在代码区定义函数：
function logfun(struser,strtxtvalue,strkey:string):integer;
begin
try
.....
logfun:=1;
except
logfun=2;
end;
end;
单编译不过去，提示：Unsatisfied forword or external declaration 
'Tform3.logfun'   意思是：不满足的向前或外部说明
紧急在线求救…………

Answer 1

定义没错，是你后面写函数是写错了，应该这样。
function logfun(struser,strtxtvalue,strkey:string):integer;
……………………
function TForm3.logfun(struser,strtxtvalue,strkey:string):integer;
begin
try
.....
logfun:=1;
except
logfun=2;
end;
end;

Answer 2

改为:
function TForm3.logfun(struser,strtxtvalue,strkey:string):integer;
begin
try
.....
logfun:=1
....