delphi中string,pchar,array of char,pointer,Pbyte,array of byte之间的转化

写程序时，老是被几个数据类型搞的晕头转向，现在总结一下。

基本上都是从网上查的，但又不是在一个地方，所以标记成‘转载’但又不好写从哪里转载的。有抄袭请见谅。

var
s:string;
p:pchar;
a:array[1..20] of char;
那么三者之间的转换如下：
1、字符串到PChar
    p:=PChar(s);
2、PChar到字符串
    s:=p;
3、PChar到字符数组
    StrCopy(@a,p);
4、字符数组到PChar
    PChar(@a);
5、字符串与字符数组之间的转换就只有通过PChar来中转了。

StrCopy(@a,PChar(s));

下面给出一个测试例子。
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  tmpStr, tmpRes: string;
  P1: array of char;
  Pb: pbyte;
  B: array[0..255] of byte;
  BB: array of byte; //定义接收COM数据的字节数组
begin
  tmpStr := PChar(Buffer);//Pointer转字符串， 直接PChar即可。
  mmo1.Lines.Add( tmpStr );


  //StrCopy(@B, PChar(Buffer)); //这样就实现了转化
  StrCopy(@B, (Buffer)); //这样就实现了转化
  mmo2.Lines.Add(  pchar(@B) );
  //mmo2.Lines.Add( '直接转：' + pchar(Buffer) ); //这样转会出错，但不是一定
  
  GetMem(Pb, BufferLength + 1);//申请内存,pchar,pbyte在使用前都必须要申请内存,因为他们是指针.
  //FillChar(Pb^, BufferLength + 1, 0);//一定要先清空内存，这样才能出现以#0结束的字符
  ZeroMemory(PB, BufferLength + 1);
  Move(Buffer^, Pb^, BufferLength); 
  //StrCopy(@Pb, PChar(Buffer));
  mmo1.Lines.Add( FloatToStr(BufferLength) + '长度' +  string(Pb) );
  FreeMem(Pb); {}
  
  SetLength(tmpRes, BufferLength);
  Move(Buffer^, tmpRes[1], BufferLength);
  mmo1.Lines.Add('用字符：' + tmpRes);


  Setlength(P1, bufferLength + 1);//长度+1解决问题，动态字符数组
  Move(Buffer^, P1[0], BufferLength);
  mmo2.Lines.Add( pchar(P1) );
  
  Setlength(BB, bufferLength + 1);//长度+1解决问题，动态字符数组
  Move(Buffer^, BB[0], BufferLength);
  mmo2.Lines.Add( 'BB' + pchar(BB) );

end;