{默认参数是传值, 不会被改变}

function MyF1(x: Integer): Integer;

begin

  Inc(x);

  Result := x;

end;

{var参数是传址, 会被改变}

function MyF2(var x: Integer): Integer;

begin

  Inc(x);

  Result := x;

end;

{out参数是为支持Com的, 和 var 的结果是一样的, 一般我们用不着它}

function MyF3(out x: Integer): Integer;

begin

  Inc(x);

  Result := x;

end;

{const参数是绝对不可以赋值的, 这是被编译器优化的方式, 尽量多用}

function MyF4(const x: Integer): Integer;

begin

  //Inc(x); {这句会出错, 因为带 const 前缀的参数是不可以更改的}

  Result := x;

end;

//调用测试

procedure TForm1.Button1Click(Sender: TObject);

var

  a: Integer;

begin

  a := ; MyF1(a);

  ShowMessage(IntToStr(a));  //

  a := ; MyF2(a);

  ShowMessage(IntToStr(a));  //

  a := ; MyF3(a);

  ShowMessage(IntToStr(a));  //

  a := ; MyF4(a);

  ShowMessage(IntToStr(a));  //

end;