高分求一简单问题： c转换pascal

Question

怎样将：
unsigned char buf[20];buf[0]=2;
i=*(int *)(&buf[0]) & 0x0000ffff;如果用Delphi写的话应该是怎样的？？？
struct sockaddr_in des;(struct sockaddr *)&des;
如果用Delphi写的话应该怎么写？？？

Answer 1

1
var
  buf:array[0..19] of char;
begin
buf[0]:=2;
i:=Integer(PInteger(@buf[0]) and $0000FFFF);//i:=Ptr(PInteger(@buf[0]) and $0000FFFF);2 
type
sockaddr_in = record ... end;
Psockaddr_in = ^sockaddr_in;
var
  des:sockaddr_in;
Psockaddr_in(Addr(des));

Answer 2

buf: array[0..19] of Char;
  buf[0]:= Chr(2);
  I := PInteger((@buf[0]))^ and $0000ffff;
  
  sockaddr_in des;
  @des