Delphi의 클래스 이해하기(10) - 깊이 있는 방법[11] - 매개 변수 접두사

//  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;