Onionmixer: SPOP 참조에의한호출 페이지 추가

2012-07-26T10:34:18Z

SPOP 참조에의한호출 페이지 추가

New page

===참조에 의한 호출===

DoSomething의 x인자 선언부에 var 키워드를 추가하면 달라질 것입니다.

<syntaxhighlight lang="pascal">
procedure DoSomething(var x: Integer);
begin
x:= x * 2;
Writeln('From inside procedure: x = ', x);
end;

// main

var
MyNumber: Integer;
begin
MyNumber:= 5;

DoSomething(MyNumber);
Writeln('From main program, MyNumber = ', MyNumber);
Writeln('Press enter key to close');
Readln;
end.
</syntaxhighlight>

이제 x에 따라 MyNumber의 값이 달라질 것이며, 이는 이들 변수가 같은 메모리 위치를 공유한다는 의미입니다.

이 때, 우리는 같은 형식의 변수(상수 아님)를 프로시저로 전달할 것입니다. 만약 인자를 Byte로 선언했다면, MyNumber는 Byte로 선언할 것입니다. 반면에 인자가 정수형이면 MyNumber역시 정수형이 될 것입니다.

다음 예제는 인자에 변수를 필요로 하는 DoSomething을 호출했을 때, 오류가 생길 것입니다.

<syntaxhighlight lang="pascal">
DoSomething(5);
</syntaxhighlight>

값에 의한 호출에서는 이전 코드에서는 사용할 수 있었는데, 인자로 전달한 값에 대해서만 다루었고, 5가 값이었습니다. 하지만 참조에 의한 호출에서는 인자로 전달한 변수에 대해 취급하며, 전달한 변수의 값에 대해 동작합니다.

다음 예제에서는 두 개의 변수를 전달할 것이고, 프로시저에서 두 변수의 값을 바꿀 것입니다.
<syntaxhighlight lang="pascal">
procedure SwapNumbers(var x, y: Integer);
var
Temp: Integer;
begin
Temp:= x;
x:= y;
y:= Temp;
end;

// main
var
A, B: Integer;
begin

Write('Please input value for A: ');
Readln(A);
Write('Please input value for B: ');
Readln(B);

SwapNumbers(A, B);
Writeln('A = ', A, ', and B = ', B);
Writeln('Press enter key to close');
Readln;
end.
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]

StartprogrammingusingObjectPascal:CallingByReference - Revision history

Onionmixer: SPOP 참조에의한호출 페이지 추가