Форум: "Прочее";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
ВнизКак перевести текст в юникод Найти похожие ветки
← →
palva © (2006-06-12 22:45) [4]
{$APPTYPE CONSOLE}
uses SysUtils;
var
ws: WideString;
s: String;
Begin
SetLength(ws, 6);
ws[1] := WideChar($043F);
ws[2] := WideChar($0440);
ws[3] := WideChar($0438);
ws[4] := WideChar($0432);
ws[5] := WideChar($0435);
ws[6] := WideChar($0442);
s := ws;
WriteLn(IntToHex(Ord(s[1]), 2)); // EF
WriteLn(IntToHex(Ord(s[2]), 2)); // F0
WriteLn(IntToHex(Ord(s[3]), 2)); // E8
WriteLn(IntToHex(Ord(s[4]), 2)); // E2
WriteLn(IntToHex(Ord(s[5]), 2)); // E5
WriteLn(IntToHex(Ord(s[6]), 2)); // F2
End.
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.01 c