Сообщение от Frank
Блин... только что сам наткнулся на эту проблему и изобрел велосипед
Вот мой вариант этой функции, у меня все работает - проверял
Function StrToUtf8(s: string;): string; // Корректирует русскую кодировку в строках взятых из ресурсов...
var i, c: integer; ch: char; ss: string;
begin
if (pos(s,chr(65488))<>-1) or (pos(s,chr(65489))<>-1) then begin // если строка содержит русские симовлы, то
for i:=1 to Length(s) do begin // перебираем строку
ch:=GetChar(s,i-1); c:=ord(ch); // берем по байтику
if c=65488 then begin // если байт равен 65488, то следующий байт отвечает за русскую букву
ss:=ss+CHR(ord(GetChar(s,i))-64384); // находим русскую букву и запоминаем
i:=i+1; // это чтобы мы перешли на следующую букву, а не брали следующий байт
end
else begin
if c=65489 then begin // то же самое но с другим байт-кодом
ss:=ss+chr(ord(GetChar(s,i))-64320);
i:=i+1;
end
else ss:=ss+ch; // если это не русская буква, то просто ее добавим
end;
end;
StrToUtf8:=ss; // возвращаем откорректированный текст
end
else StrToUtf8:=s; // если строка не содержала русских букв, то просто ее и возвратим...
end;
|
вот че я те скажу эти строки находятся в проэкте аурелико такчт не надо ляля! йа ызабрел йайа
и лдя исо данный способ не катит!
ну коменты хотяб убрал а то вообще узнается с первого взгляда!