| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Unicode [D7, WinXP]

Devel ©   (2004-10-29 10:33:00) 

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

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

---

Devel   (2004-10-29 12:17:00) [1]

Спасибо !

---

palva   (2004-10-29 11:50:00) [2]

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;

---

Наверх