理解 Delphi 的类(十) - 深入方法[8] - 如果忘了返回值

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