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




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

или


pch:=PChar(str);



str:=String(pch);


Далее: Преобразование Unicode строк в DFM файлах Delphi 6 в Ansi строки »»