for supernewbie (логово извращенцев)

[supernewbie]

да че за фигня

procedure DispatchNetworkQueue_Parsing(p:pointer); stdcall;
var
  np:PPNetworkPacket;
begin
if (Cardinal(p^)<>0) and (last<>Pointer(p^)) then
begin
last:=Pointer(p^);
np:=p;
Writeln('FromServer:'+inttostr(cardinal(p)));
Writeln('FromServer:'+inttostr(cardinal(p^)));
Writeln('FromServer:'+inttostr(byte(np^.id)));
end;
end;

1. адрес
2. адрес по адресу
3. ид нетворкпакета по адресу 2

че-то странно