Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Unicode   Найти похожие ветки 

 
Devel ©   (2004-10-29 10:33) [0]

Здравствуйте,

У меня такая проблема: есть строка AnsiString в которые содержит в каждые 2 байта символы юникод UCS2 (например переведение байты в hex: 0422 0435 0441 0442 - слово тест), как записать их в строку WideString. Неужели нужно сделать таблицу всех символов юникод и искать в ней?


 
palva ©   (2004-10-29 11:50) [1]

procedure TForm1.FormCreate(Sender: TObject);
var
 s: AnsiString;
 w: WideString;
 i: Integer;
begin
s := #04#66#04#53#04#65#04#66;
SetLength(w, Length(s) div 2);
for i := 1 to Length(s) div 2 do
 w[i] := WideChar(Ord(s[2*i-1])*256 + Ord(s[2*i]));
caption := w;
end;


 
Devel ©   (2004-10-29 12:17) [2]

Спасибо !



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

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.049 c
1-1098867355
_Сергей_
2004-10-27 12:55
2004.11.14
Дизайнер форм


8-1086176663
Petrush
2004-06-02 15:44
2004.11.14
Непростой плеер для винды.


1-1099230797
Dr. Genius
2004-10-31 16:53
2004.11.14
Работа с именами секций в Ini-файлах


6-1094360393
V_Mir
2004-09-05 08:59
2004.11.14
POP3 Attachments и ClientSocket


3-1098104433
denis24
2004-10-18 17:00
2004.11.14
определение названия тейбла в dbedite связаного с Datasours