用过move函数吗?

Question

procedure Tfm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  i:integer;
begin
  viewstr:='';
  move(buffer^,pchar(@rbuf^),bufferlength);
  for i:=1 to bufferlength do
    viewstr:=viewstr+inttohex(rbuf[i],2)+'' ;
    viewstr:='收到车速'+viewstr;
    memo1.lines.add(viewstr);
    memo1.lines.add('');
end;
//上面move函数有语法错误吗?

Answer 1

move(buffer^,pchar(@rbuf)^,bufferlength);