随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//要点9: 没有参数的过程或函数, 在调用时可以省略 (); 也可以带着
function MyFun: string;
begin
  Result := 'ok';
end;

{调用}
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := MyFun;
  ShowMessage(s); {ok}

  s := MyFun();
  ShowMessage(s); {ok}
end;

posted on 2008-01-14 21:27  万一  阅读(...)  评论(...编辑  收藏