Q&A

  • 포인터 := 포인터 + 100 을 더하는 것이 가능 합니까?
제가 여쭈어 보고 싶은 내용은 다음과 같습니다...



var

pbInput1 : Pointer;

cbOutput1 : DWRD;

begin

cbOutput1 := 100;

pbInput1 := pbInput1 + cbOutput1;

end;



이러한 내용이 가능 한가 하는 겁니다..



사실 C++에 있는 내용을 델파이로 바꾸는 작업을 하고 있습니다만...

쫌 어려운 부분이 많이 있습니다..

도와 주십시요...



1  COMMENTS
  • Profile
    안치봉 2000.01.08 03:08
    가능합니다. 단! 형변환이나 이런걸 델파이가 깐깐히 다져서 그렇지 C++ 에서 하는건

    델파이 역시 다 할 수 있습니다.



    procedure TForm1.FormCreate(Sender: TObject);

    var

    i: integer;

    d: array[0..200] of integer;

    s: ^integer;

    v: integer;

    begin

    for i := 0 to 200 do

    d[i] := i;



    s := @d;



    inc(s, 101); // 포인터를 101증가



    v := s^;

    ShowMessage(IntToStr(v)); // 화면에 101 이 출력...

    end;





    김진호 wrote:

    > 제가 여쭈어 보고 싶은 내용은 다음과 같습니다...

    >

    > var

    > pbInput1 : Pointer;

    > cbOutput1 : DWRD;

    > begin

    > cbOutput1 := 100;

    > pbInput1 := pbInput1 + cbOutput1;

    > end;

    >

    > 이러한 내용이 가능 한가 하는 겁니다..

    >

    > 사실 C++에 있는 내용을 델파이로 바꾸는 작업을 하고 있습니다만...

    > 쫌 어려운 부분이 많이 있습니다..

    > 도와 주십시요...

    >