초봉 님이 쓰신 글 :
: 예제입니다.
: var
: n,n2,n3,n4:integer;
: p1:^integer;
: begin
:
:     n:=p1^;
:     inc(p1);
:
:     n2:=p1^;
:     inc(p1);
:
:     n3:=p1^;
:     inc(p1);
:
:     n4:=p1^;
:     inc(p1);
:
:     callme(n,n2,n3,n4);
:
:     callme(p1^,(p1+1)^,(p1+2)^,(p1+3)^);
:    이렇게 대입받아서 함수를 호출하는데요.
:    이렇 아래와 같이 바꾸고 싶습니다.
:    이런식이 적용이 않되나요 ? 자꾸 컴파일 에러 나는군요.
:
:     callme(p1^,(p1+1)^,(p1+2)^,(p1+3)^);
:
:
     
      Pinteger(uint(p1))^:=n;
      Pinteger(uint(p1)+4)^:=n2;
      Pinteger(uint(p1)+8)^:=n3;
      Pinteger(uint(p1)+12)^:=n4;

위식 으로 가능합니다 ^^