理解 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;