Форум: "Прочее";
Поиск по всему сайту: 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.648 c
15-1150144664     Константинов          2006-06-13 00:37  2006.07.16  
Как отстоять право на чистый воздух?


15-1150452740     КаПиБаРа              2006-06-16 14:12  2006.07.16  
Какая самая беззаботная профессия?


2-1151579681      fast2                 2006-06-29 15:14  2006.07.16  
Как проверить, что переменная типаTDate "пустая", т.е....


1-1149652617      dwar                  2006-06-07 07:56  2006.07.16  
Ole обьект в DLL


2-1151673095      Vitalik__             2006-06-30 17:11  2006.07.16  
приложение для интернета