Как из string получить PChar???

[sis]

Очень интересно! Может сталкивался кто? Подскажите пожалуйста.

Заранее благодарен!

[sis]

Один из способов изложенных в хелпе делфи:

var p,p1:PChar;
     s:string;
     buff:array[0..const0] of char;
begin
   s:='Blablabla'; 
   //начало способа
    for i:=0 to length(s)-1 do
       buff[i]:=s[i+1];
    buff[i]:=#0;
    p:=buff;
   //конец способа    
//Для примера    
     writeln(p); //на консоль даст странный значок, а хочется blablabla
     p1:='Blablabla';    
     writeln(p1);// На консоль даст blablabla
end;

[Lynx]

var
  s : string;
  a : pansichar;
begin
  a := Pchar(s);
....

[sis]

Спасибо! У меня не получилось т.к. строка была фиксированная"S:string[cons0]" ! s:=PAnsiChar(s); не работало! Я голову в пяти местах свернул!


Вот блин! Система!

[mihali4]

Чтобы в дальнейшем не мучиться от удивления:
function StrPCopy(Dest: PChar; const Source: string): PChar;