안녕하세요. 최용일입니다.

그냥 C처럼 포인터 연산하셔두 되구요, 배열로 형변환해도 됩니다...

type
    PLByteArray = ^TLByteArray;
    TLByteArray = array[0..High(Integer)-1] of Byte;
var
    P: PByte;
    PI: PInteger;
    PW: PWord;
    PB: PByte;
    I: Integer;
    W: Word;
    B: Byte;
begin
    // P ==> PByte형변수

    Index := 100;

    // 포인터 연산
    PI := PInteger(Integer(P) + Index);
    ListBox1.Items.Add( IntToHex(PI^, 8) );
    PW := PWord(Integer(P) + Index);
    ListBox1.Items.Add( IntToHex(PW^, 8) );
    PB := PByte(Integer(P) + Index);
    ListBox1.Items.Add( IntToHex(PB^, 8) );

    // 배열이용
    B := PLByteArray(P)[Index];
    ListBox1.Items.Add(IntToHex(B, 8));
end;

^^ 항상 즐코하세요...

우선 답변 감사드립니다..
답변을 보고 다음과 같이 바꿔보았는데요
if 문에서 Operator not applicable to this operand type 라는
에러가 나더라구요
무엇이 잘못된건지 알고 싶습니다..

              mok := idxCat div 8;
                 pB := PByte(short(pv^.val.blob.lpb) + mok);
                 if ((1 shl rem) and pB) then  <-- 에러발생

안녕하세요. 최용일입니다.


위에서 Short(2바이트)으로 했는데 Win32에서 포인터는 4바이트입니다. 때문에 Integer같은 4바이트형으로 하셔야 할거 같구요...

포인터는 비트연산(and)이 안됩니다. 원하시는 것은 pB가 가리킨 값하고 and연산하실려는 것같은데... pB^를 써서 값을 참조해야죠...

그리고 마지막으로 if문에는 참이냐 거짓이냐를 나타내는 불린표현식이 와야 합니다.

아래와 같은식의 연산을 하셔야죠...

if ((1 shl rem) and pB^) = 0 then

((1 shl rem) and pB^)는 단순한 숫자값입니다. 위와 같이 뭔가하고 비교를 하시면 됩니다.

^^ 항상 즐코하세요...