谁能理解这段代码？

Question

还是你能理解这些代码吗？
var
  pi, po,data: Pchar;
  audiosize: integer;
  AudioBuf: array[0..3000 - 1] of Byte; 
  BUF: array of Byte;
begin
  pi := data;
  po := @Audiobuf;
  po := po + AudioSize;
  setlength(Buf, sizeof(AudioSize)+AudioSize);
  Move(AudioSize, BUF[0], sizeof(AudioSize));这里的po和audiosize操作，无法理解。var
 adata: stream;
 _audiosize: integer;
  begin
     Adata.Read(_AudioSize, sizeof(_AudioSize));
   end;
还有这里的  Adata.Read(_AudioSize, sizeof(_AudioSize));

Answer 1

把po的指针后移audiosize个字节从adata流里读取4个字节（sizeof(_AudioSize))）的内容到_AudioSize
也就是取出流里的_AudioSize信息

Answer 2

指针好像是这样加的吧
po:=pointer(DWORD(PO) + AudioSize)