50分求转2句C的代码,关于指针的.

Question

void  DoObject(long idx)  
{ 
    unsigned char * pPlayer = (unsigned char *)(*(long *)0x13F83D4);
    (*(long *) 0xCFD370) = idx; 
} 

Answer 1

C的指针操作看不懂,感觉C语言好象很乱~~~~有人可以把他转成delphi的吗?

Answer 2

void  DoObject(DWORD idx)  
{ 
PBYTE pPlayer = (PBYTE)(*(PDWORD)dwPlayerAddr);
(*(PDWORD) 0xCFD370) = idx;
}
还有这个 跟上边的一样吗?

Answer 3

procedure DoObject(idx:LongInt);
var
    pPlayer:PByte;
begin
    pPlayer:=PByte(PLongInt($13F83D4)^);
    PLongInt($CFD370)^:=idx;
end;

Answer 4

procedure DoObject(idx:LongInt);
var
    pPlayer:PByte;
begin
    pPlayer:=PByte(PInteger($13F83D4)^);
    PInteger($CFD370)^:=idx;
end;