|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#3
|
|||
|
|||
Решение подсказал Serge_Bliznykov с другого форума. Вот оно:
Код:
procedure TForm1.Button1Click(Sender: TObject); var s, sr : AnsiString; i : integer; ws : widestring; begin s := 'd0 b2 d0 b0 d0 b4 d1 8f'; i := 1; sr := ''; while i<Length(s) do begin sr := sr + AnsiChar(StrToInt('$'+copy(s,i,2))); Inc(i,3); end; ws := utf8decode(sr); ShowMessage(ws); end; |