Текущий архив: 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.045 c
