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

советует:

function strtoPchar(s:string):Pchar;
beginS := S+#0;result:=StrPCopy(@S[1], S) ;end;

добавляет:

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

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

обратно:

str:=String(pch);

[000884]