Форум: "Прочее";
Поиск по всему сайту: www.delphimaster.net;
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];




Вниз

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


Новичоккк   (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 заменяют на  как говорил Анатолий????

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




Форум: "Прочее";
Поиск по всему сайту: www.delphimaster.net;
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.026 c
2-1151153327      K_Lock                2006-06-24 16:48  2006.07.16  
QuickReport


2-1151392498      corvus                2006-06-27 11:14  2006.07.16  
кнопки


8-1138909150      Flint-1983            2006-02-02 22:39  2006.07.16  
mp3 файлы


15-1150556177     Vlad Oshin            2006-06-17 18:56  2006.07.16  
любые числа +-*:


15-1150388813     Nobody_1988           2006-06-15 20:26  2006.07.16  
Стоит ли разбираться в .NET?