深入方法（8）- 忘记Result

//要点8: 忘了写返回值的函数, 也可以当过程用(没有人会这样做, 但 Delphi 竟然也允许)
function MyFun(var x: Integer): string;
begin
  x := x + 1;
end;

{调用}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 2;
  MyFun(i);
  ShowMessage(IntToStr(i)); {3}
end;

标签：begin,end,MyFun,Delphi,深入,Result,var,Integer,忘记
来源： https://www.cnblogs.com/fansizhe/p/12729688.html