안녕하세요.

  질문했던 사람인데요.  

  답변들 모두 감사드립니다.

  그런데 답변주신분 중에 틀린 것이 있어 수정하려고 합니다.

   @ 가 포인터 변수에 주소값을 넘기는 것입니다.   ^을 변수 되에 붙이게

   되면 값을 넘겨주게 됩니다.


    아참 그리고 var 붙이는 부분에서는 없어도 되고 있어도 되더군요.


    그리고 swap문 을 풀려고 생각하다보니 이렇게 생각이 들더군요.

    델파이에서는 swap문이 필요없는것이 아닌가?   전역변수로 선언할 시

    간단하게 temp변수를 두어서 교환 하게 되고,  그리고   어떤 이벤트가

     발생했을 시 그 변수의 값을  주소를 가지고 있는다 할들 이벤트가 끝나

    버리면 변수주소는 쓸모 없는 것이 되어 버린다는 결론입니다.

   그래서 지역 변수값은 함수나 프로시져로 돌려서 그값을 가져가면 된다.

   C와 값이    Call by Reference  나 Call by Pointer 로  swap 문을

  구성할 필요성이 없는듯합니다.

   저의 생각이 무언가 잘못인는 듯 한데....

   이상하점을 찾아서 좀 가르쳐 주세요.  

평안한 하루되세요.

아 먼저 죄송합니다.

님 말씀이 맞습니다. 제가 헷갈렸네요..

@ 이게 주소가 맞네요..

그리고 var은 C언어에서도 있었던거 같았는데

call by value 와 call by reference 이건가요??

var 이면 call by reference 입니다.

주소를 이용 하는거지요..

포인터를 넘기면

a 라는 변수의 포인터 a1과 이것은 포인터 a2가 있으면

procedure swap(var a1 : pointer);;

저렇게 쓴다면 프로시져 내부에서는 a1의 포인터 a2로 이용하는 거죠...??

결과 적으로 a1^ 값이나 a2^ 값은 모두 같습니다.

하지만 이런점은 염두해 두고 넘어가야 할거 같습니다.

a1 과 a2는 엄연히 다른 놈이죠..

a1의 값은 a의 주소이고 a2는 a1의 주소입니다..

procedure swap(var a1:string);
begin
  a1 := '가나다';
end;

procedure swap(var a1:pointer);
begin
  a1^ := '가나다';
end;

이렇게 쓰는 차이점이 있습니다.

그리고 위의 프로시져라면 var은 필요 없네요..

그리고 포인터는 반드시 쓸때가 있습니다.

전체적인 프로그램 구조를 봐야 얘기 할수 있겠지만..

저같은 경우엔 두개의 스레드가 하나의 StringList를 사용하는데

스레드 생성시 인자로 저 StringList의 포인터를 가지고 있어야만 했습니다.

방법은 그때그때 상황에 맞게 선택 해야 겠죠..

procedure TForm1.BitBtn1Click(Sender: TObject);
  Procedure Swap(var s, t);
  var p : pointer;
  begin
    p := Pointer(s);
    pointer(s) := pointer(t);
    Pointer(t) := p;
  end;
var
  stra, strb : string;
begin
  stra := '아름다운 세상';
  strb := '더러운 세상';
  Swap(stra, strb);
  caption := strb;
end;

이런식으로 해보세요

Output은 "아름다운 세상" 이 나옵니다. 그럼...

안녕하세요. 한원희입니다.

실제 값을 바꿀 경우에 델파이에서 var 를 앞에 붙이면 됩니다.

procedure swap(var str1,str2 : pointer);
var
   temp : pointer
begin
   temp := str1;
   str1 := str2;
   str2 := temp;
end;

그럼, 즐프~

아 잘못 넘기신거 같은데요..

약간 오해를 하신듯 합니다.

pstra := @stra;

위문장은 stra의 값을 넘겨주는 거구요..

이렇게 바껴야 할거 같아요..

pstra := ^stra;

그런데 처음 문장이 에러가 안나던가요??

포인터에 스트링을 넘겨주면 에러 안나나??

암튼 '^'은 포인터구요..'@'은 값입니다.

@pstra 이렇게 하면 stra값으로 접근합니다.