Delphi 指针操作

Question

var
 Buffer: Pointer
 P,S:PWideChar ;
BEGIN 
  P='123456';
  Buffer:=GetPoint....... //这是我得到一个指针，当然这个地址是固定的不能改变255长
1 我想先读出来 Buffer内容，现在已经知道是WideChar 放到S中 
1 我想把P的值赋给Buffer
end;
这段代码怎么写？

Answer 1

不知道怎么写，因为不知道 Buffer 指向什么类型。

Answer 2

var
P,S:Pwidechar;
Buffer: Pointer;
begin
   P:='123456';
  Buffer:=GetPoint; //这是我得到一个指针，当然这个地址是固定的不能改变255   getmem(S,255);   //为S分配内存
   move(Buffer^,S^,255);  //先读出来 Buffer内容，放到S中  
   move(P^,Buffer^,255);  //把P的值赋给Buffer 
   //..............................
     freemem(S);

Answer 3

1 我想先读出来 Buffer内容，现在已经知道是WideChar 放到S中  

Answer 4

其实用move的话，完全是内存的复制，与类型无关
move（source,dest,length）；length是字节数