|
|
|
|
Одной строкой
Преобразование 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]
|
|
|
|
|