C++里面的结构指针和类型转换，在delphi里面怎么实现？

Question

typedef struct
{
unsigned int ID;
unsigned int size;
unsigned int type;
char sdata[64000]
}r_bodyr_body body;
char *pBuf = (char*)&body;
char cBuf[512];
memcpy(&pBuf[12],&cBuf[0],512);小弟初涉delphi，请各位大侠赐教，感激不尽！

Answer 1

大致这样吧type 
   r_body = recode
      ...
      end;var
   body:r_body;
   pBuf:pbyte;
begin
pBuf:=@body;
...
memcpy(@pBuf[12],@cBuf[0],512); 
end;