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;