String Pchar 互相转换

pchar to string：  function StrPas(const Str: PChar): string;

 

string to pchar：  function StrPCopy(Dest: PChar; const Source: string): PChar;

 

{-------------------实例代码-----------------------}

 

procedure TForm1.ButtonClick(Sender: TObject);
  var
    Str:string;
    p:PChar;
begin
  p:=AllocMem(Length(Str)+1); //指针要分配内存；
  Str:='5895262';
  StrPCopy(p,Str);
  ShowMessage(p);

end;