Delphi:如何将String变量赋值给PChar变量

   这个问题，应该是每个使用Delphi的朋友经常会遇到的疑问，针对如何将String变量赋值给Pchar变量，网上有很多种说法，如PChar、StrPas。但经过我实际试用，发现以下问题。如果你感兴趣，可以在你delphi7编译下面二段代码，看其结果有何不同？

var
  p : pchar;
  s : string;
  i  : integer;
begin
  s := 'hello world';
  i  := length(s);
  GetMem(p,i);
  try
    p := PChar(s);
  finally
    FreeMem(p);  //此处会出错
  end;
end;

 

var
  p : pchar;
  s : string;
  i  : integer;
begin
  s := 'hello world';
  i  := length(s);
  GetMem(p,i);
  try
    StrPCopy(p,s);
  finally
    FreeMem(p);  //可以正确释放
  end;
end;