Форум: "Начинающим";
Текущий архив: 2017.05.28;
Скачать: [xml.tar.bz2];
ВнизНе получается преобразовать 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]в общем я разобрался. тьфу тьфу тьфу )))
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2017.05.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.002 c