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