Преобразование 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);

[000884]