pchar 类型的字符串怎么赋值给 char 的数组呢?

Question

比如function fuzhi(pch: Pchar):boolean;
var
    ch : array[0..15] of char;
begin
    ch := pch;//????????
end;
该怎么写??

Answer 1

var
    ch : array[0..15] of char;
    P: PChar;
begin
  StrCopy(ch , P);————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————