pansichar to string

[Toxa]

помогите переделать pansichar to string

[Квэнди]

var str1: pansichar;
str2:string;
begin
str1:='ddddd';
str2:=string(str1);

[Toxa]

Сообщение от Квэнди

var str1: pansichar;
str2:string;
begin
str1:='ddddd';
str2:=string(str1);

S‹Ø‹ÃèºÌ
это результат такого присваивания, а других вариантов нет???

[Квэнди]

оператор string (<pansichar>) вернет строку типа string

[MaGiCeYe]

var
s:string;
с:Pansichar;
begin
c:='Привет!';
s:=pchar(с);

[MaGiCeYe]

Ой забыл поменять

[Noor]

а как сделать на оботрот из string to pansichar ?

[MaGiCeYe]

Можно так:

var
s:String;
c:PansiChar;
begin
s:='С новым годом!';
c:=PChar(s);
end;

[SuperVisor]

Сообщение от Noor

а как сделать на оботрот из string to pansichar ?

Оставляю пост только лишь для информации. Все (насколько я знаю) типы с префиксом P являются лишь указателем (отсюда и P - Pointer), т.е. функции PChar и PAnsiChar работают так: первая считывает массив символов из определенного адреса, вторая - возвращает адрес массива символов строки.

Если, допустим, какая-ли бо функция требует от нас PAnsiChar, то мы можем заменить эту переменную указателем на строку - @string_var. Пример:

function GiveMePAnsiChar(msg: PAnsiChar): integer; //Какая-либо функция, использующая PAnsiChar
...
var
string_var: string;
Result: integer;
begin
Result:=GiveMePAnsiChar(@string_var); //Использование функции со строкой

[Noor]

пробывал с использыванием инфы и поста 8.
Но все равно результат Incompatible types 'String' and 'PAnsiChar'

var
s:String;
c:PansiChar;
begin
s:=Edit1.Text;
c:=PChar(s);
ShellExecute (Handle,nil,'cmd.exe','/k' + c, nil,SW_NORMAL);
end;