//要点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;
//要点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;