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

← →
Gedevan (2015-09-25 16:20) [0]

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

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

← →
кгшзх © (2015-09-25 16:34) [1]

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

← →
Gedevan (2015-09-25 17:42) [2]

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 ( каждый раз с ними геморой (

← →
Gedevan (2015-09-25 17:51) [3]

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

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

← →
Gedevan (2015-09-25 18:06) [4]

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

Не получается преобразовать string в PChar Найти похожие ветки