delphi 函數參數傳遞 默認參數(傳值)、var(傳址)、out(輸出)、const(常數)四類

參數可以分為: 默認參數(傳值)、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;