| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не получается преобразовать string в PChar

Gedevan ©   (2015-09-25 16:20:00) 

делал и так и сяк и все равно на входе  строка на русском, а на выходе китайские иероглифы. Как правильно?


function strtoPchar(s:string):Pchar;
begin
 S := S+#0;
 result:=StrPCopy(@S[1], S) ;
end;
//или
pch:=PChar(str);



---

Gedevan   (2015-09-25 18:06:00) [1]

в общем я разобрался. тьфу тьфу тьфу )))

---

Gedevan   (2015-09-25 17:51:00) [2]


var
 s:string;
begin
 s := Buffer;
end;

похоже дело не в pchar. При выполнении такого кода в s появляются опять те же иероглифы. Переменная в мою функцию идет через Pascal Script RemObject что он там творит я не знаю. Но на входе я же вижу свой текст в параметре Buffer: string - как мне его оттуда достать?

---

Gedevan   (2015-09-25 17:42:00) [3]

procedure TClipboard.SetTextBuf(Buffer: string);
var
 b :pchar;
begin
 b := @Buffer[1];
 SetBuffer(CTextFormat, b, Length(Buffer)-1);
end;

в таком виде после прохождения строки b := @Buffer[1]; иероглифы появляются не только в b но и в buffer. че за ерунда?

какой то дурак придумал этот pchar и string ( каждый раз с ними геморой (

---

кгшзх   (2015-09-25 16:34:00) [4]

похоже на какой-то обряд вуду или черную магию.

---

Наверх