參數前綴

//要點11: 參數可以分爲: 默認參數(傳值)、var(傳址)、out(輸出)、const(常數)四類

{默認參數是傳值, 不會被改變}
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 := 6; MyF1(a);
  ShowMessage(IntToStr(a));  //6

  a := 6; MyF2(a);
  ShowMessage(IntToStr(a));  //7

  a := 6; MyF3(a);
  ShowMessage(IntToStr(a));  //7

  a := 6; MyF4(a);
  ShowMessage(IntToStr(a));  //6
end;