函数声明出错？？？？

Question

function checkedit:boolean;
begin
if trim(mian.DBEdit1.Text)='' then
begin
Result:=false;
exit;
end;
if trim(mian.DBEdit2.Text)='' then
begin
Result:=false;
exit;
end;
if trim(mian.DBEdit3.Text)='' then
begin
Result:=false;
exit;
end;
end;声明部分是写function checkedit:boolean;编译提示出错
还有函数体中我把3个条件用or连起来为什么说是错的呢
if trim(mian.DBEdit1.Text)='' or trim(mian.DBEdit2.Text)='' then
每次这样都说错的

Answer 1

最后要加上Result := True; or的话要加上括号，如下：
function checkedit:boolean;
begin
  if (trim(mian.DBEdit1.Text)='') or (trim(mian.DBEdit2.Text)='') or
     (trim(mian.DBEdit3.Text)='')
  then begin
    Result := false;
    exit;
  end;
  Result := true;
end;

Answer 2

unsatisfied forward or external declaration:"Tmian.checkedit"现在提示这样的错误，估计是我的声明语句有错吧
function checkedit:boolean;

Answer 3

function checkedit:boolean;
然后，Ctrl + shift + c
在生成的函数中加上：
if (trim(mian.DBEdit1.Text)='') or (trim(mian.DBEdit2.Text)='') or
     (trim(mian.DBEdit3.Text)='')
  then begin
    Result := false;
    exit;
  end;
  Result := true;