|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вопрос по hexadecimal
Добрый вечер! Подскажите пожалуйста как реализовать:
Есть hex данные записанные в строку, как их передать используя переменную? Код:
var data_r:data; s:string; begin s:='03c1eb08'; Если вручную вот так записать , все работает Код:
Data_r[0]:=$03; Data_r[1]:=$C1; Data_r[2]:=$EB; Data_r[3]:=$08; но не понимаю как подставить copy(s,1,2) и т.д. все время несоответсвие типов, как бы не пытался. Спасибо! Последний раз редактировалось Admin, 06.11.2016 в 22:14. |
#2
|
||||
|
||||
Цитата:
Код:
Data_r[0]:= StrToInt('$' + copy(s,1,2)); Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 06.11.2016 в 22:43. |
#3
|
|||
|
|||
[dcc32 Error] Unit1.pas(390): E2250 There is no overloaded version of 'IntToHex' that can be called with these arguments
В s уже хекс, его преобразовывать не нужно. Код:
StrToInt('$' + (copy(s,1,2)); так работает до того момента пока в S не попадутся буквы. |
#4
|
||||
|
||||
И с буквами работает
Код:
procedure TForm1.Button1Click(Sender: TObject); var b: byte; s: string; begin s:= '03c1eb08'; b:= StrToInt('$' + copy(s,3,4)); label1.Caption:= Inttostr(b); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |