Delphi字符串、PChar與字符數組之間的轉換

var

  s: string;

  p: pchar;

  a: array[1..20] of char;

一、字符串 ---> PChar

  p := PChar(s);

二、PChar ---> 字符串

  s := p;

三、PChar ---> 字符數組

  StrCopy(@a , p);

四、字符數組 ---> PChar

  PChar(@a);

五、字符串 ---> 字符數組

  StrCopy(@a , PChar(s));

六、字符數組 ---> 字符串

  s := PChar(@a);

【注】字符串和字符數組之間的轉換借助 PChar 作中轉;