Как перевести текст в юникод

← →
Новичоккк (2006-06-12 19:31) [0]

Как перевести строку в юникод? Латинские буквы легко =)
function Str2Unicode(str:string):string; begin Result:=""; for i:=1 to Length(str) do Result:=Result+str[i]+chr(0); end;
А как быть с кириллицей?

← →
AlexanderMS © (2006-06-12 19:41) [1]

> А как быть с кириллицей?

Может, попробовать сохранить файл в формате Unicode, воспользовавшись Блокнотом, и поглядеть... Там, по-моему, второй байт другой.

← →
Anatoly Podgoretsky © (2006-06-12 20:50) [2]

ws := s

← →
Новичоккк (2006-06-12 22:23) [3]

Вот строка "123":
31 00 32 00 33 00 00 00
А вот "привет":
3F 04 40 04 38 04 32 04 35 04 42 04
Как этот самый привет из Unicode преобразовать в:
EF F0 E8 E2 E5 F2
???
Надеюсь на вашу помощь

← →
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.

← →
Ketmar © (2006-06-12 23:00) [5]

как говорил Анатолий:
var
ws: WideString;
s: AnsiString;
begin
ws := s;
end.

всё.

← →
kaif © (2006-06-12 23:09) [6]

AnsiToUTF8

← →
Правильный Вася (2006-06-13 19:28) [7]

юникод, помнится, разный бывает
в какой надо?

← →
Palladin © (2006-06-13 20:09) [8]

:) да... интернетов тоже много...

← →
dimodim-Furyz (2006-06-13 21:51) [9]

как говорил Анатолий:
С каких пор procedure заменяют на как говорил Анатолий????

Ketmar - +1
Подругому никак

а это не процедура. это законченая (хоть и бессмысленная) программа. %-))

> dimodim-Furyz (13.06.06 21:51) [9]
> С каких пор procedure заменяют на как говорил Анатолий????

С тех, как прочитают справку. Эти преобразования делаются автоматически, никаких дополнительных процедур не требуется.

Как перевести текст в юникод Найти похожие ветки