[救助]请大家帮我解决一个小问题，我是delphi初学者，谢谢了！

Question

我读了一段程序，内容是这样子的：Function TFRM_YHQX.CanSave: boolean;
begin
  if (Edit1.Text='') then
  begin
   Result:=False;
   Application.MessageBox('用户编号不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  if (Edit2.Text='') then
  begin
    Result:=False;
    Application.MessageBox('用户名不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit3.Text='') then
  begin
    Result:=False;
    Application.MessageBox('密码不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit4.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请确认密码！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end; 
end;结果编译只后出现这个警告，请问怎么解决这个问题。
警告提示：
[Warning] UYHQX.pas(149): Return value of function 'TFRM_YHQX.cansave' might be undefined

Answer 1

Function TFRM_YHQX.CanSave: boolean;
begin
  Result:=True;  if trim(Edit1.Text)='' then  
  begin
   Result:=False;
   Application.MessageBox('用户编号不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  .......
end

Answer 2

怎么还是没有解决啊，还有就是怎么最后一个end后没有分号啊，是不是楼上的忘记了啊

Answer 3

在程序的最前面加上
Result:=True;

Answer 4

Result:=True;
加在最后一个end之前可以吗，随便问一下怎么给加分

Answer 5

不行，必须放在最前面。如果放在后面，这个函数的返回值永远是True。