Преобразование String в Pchar

function strtoPchar(s:string):Pchar;

begin

S := S+#0;

result:=StrPCopy(@S[1], S) ;

end;

Преобразование String в Pchar:

pch:=PChar(str); //Delphi 3+

обратно:

str:=String(pch);