Перевод кирилицы в коды используемые MSWord-ом

← →
DelphiN! © (2006-10-09 12:25) [0]

Когда в воре пишут символы на кирилице он переводит их в какие-то коды, например слово "Настройка" переводит как "Настройка"
Что это за кодировка и как произвести перевод строк в нее?

← →
ЮЮ © (2006-10-09 12:27) [1]

> "Настройка" переводит как "Настройка"

И где тут перевод?

← →
DelphiN! © (2006-10-09 12:28) [2]

Не получилось запостить перевод, вобщем символы разделяются знаками "&#" ... ";"

← →
clickmaker © (2006-10-09 12:40) [3]

> Что это за кодировка

уникод?

← →
DelphiN! © (2006-10-09 12:44) [4]

> [3] clickmaker © (09.10.06 12:40)

А как перевести?

← →
Gydvin © (2006-10-09 12:47) [5]

Шрифт какой?

← →
Gydvin © (2006-10-09 12:50) [6]

если все таки юникод поищи TntUnicodeControls, там помоtve есть функции по переводу midestring в string и наоборот

← →
Курдль © (2006-10-09 12:51) [7]

В некоторых случаях Ворд переводит кириллицу в Юникод.
Например, я нарывался на грабли при "Слиянии".

← →
DelphiN! © (2006-10-09 13:58) [8]

Вот сделал для русского кому надо :

function ASCIIToUnicode(ASCIIStr: String): String;
var
RCode: Set of Char;
i: Integer;
begin
RCode := ["А","Б","В","Г","Д","Е","Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т","У" ,"Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я","а","б","в","г","д","е","ж","з" ,"и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ","ъ","ы" ,"ь","э","ю","я"];
Result := "";
for i := 1 to Length(ASCIIStr) do
if ASCIIStr[i] in RCode then
Result := Result+"&#"+IntToStr((ord(ASCIIStr[i])-192)+1040)+";"
else
Result := Result+ASCIIStr[i];
end;

>> RCode := ["А","Б","В","Г","Д","Е","Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т","У" ,"Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я","а","б","в","г","д","е","ж","з" ,"и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ","ъ","ы" ,"ь","э","ю","я"];

А так короче было бы?

RCode = [192..255];
ну, или
RCode = ["А".."я"];

Букву ЙО забыли

Перевод кирилицы в коды используемые MSWord-ом Найти похожие ветки