Скачать: CL | DM;

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

← →
Новичоккк   (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
Подругому никак

---

← →
Ketmar ©   (2006-06-14 01:07) [10]

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

---

← →
Юрий Зотов ©   (2006-06-14 01:22) [11]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.038 c