|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2010, 19:00 | #1 |
Новичок
Джуниор
Регистрация: 25.12.2010
Сообщений: 3
|
2 byte to Word
Уважаемые коллеги! выручайте, простейший вопрос как то поставил в ступор...
Работаю с разными паскалями (Win, ARM, AVR) и везде по разному подскажите, подтолкните Имеем var adress:word; x,y:byte; нужно в адрес запихнуть x y, причем x-старший байт у-младший В паскалях для микроконтроллеров пишем просто: Hi(adress):=x; Lo(adress):=y; всё... под Делфёй7 упорно ошибка... заранее благодарен! |
25.12.2010, 19:05 | #2 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
adress := ((x and $ffff) shl 16) or (y and $ffff);
|
25.12.2010, 19:11 | #3 |
Новичок
Джуниор
Регистрация: 25.12.2010
Сообщений: 3
|
BOBAH13, спасибо конечно что откликнулся, неужто в Дельфе нет четкой команды?
через арифметику это ясненько конечно... но даже в каком то древнем паскале было: adress.Hi:=x; adress.Lo:=y; я в шоке |
25.12.2010, 20:04 | #4 |
Форумчанин
Регистрация: 26.07.2009
Сообщений: 489
|
Может через Move?
Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.
|
25.12.2010, 21:18 | #5 |
Новичок
Джуниор
Регистрация: 25.12.2010
Сообщений: 3
|
Да, кстати забыл сказать
в выражении adress := ((x and $ffff) shl 16) or (y and $ffff); смещаем влево не на 16 бит а на 8, т.е. adress := ((x and $ffff) shl 8) or (y and $ffff); иначе получать будем всегда от 0..255 Последний раз редактировалось Digital_Slavik; 25.12.2010 в 22:11. |
25.12.2010, 21:20 | #6 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Ну да, я чет подумал наоборот, привел пример для когда два слова в двойном слове располагаются. В вашем случае будет не много не так
Код:
|
26.12.2010, 11:49 | #7 |
Форумчанин
Регистрация: 03.02.2010
Сообщений: 178
|
достаточно:
Код:
Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Конвертировать из строки в byte[] | Sparky | Общие вопросы .NET | 7 | 11.02.2010 22:44 |
byte - string | fize | Помощь студентам | 4 | 10.01.2010 02:33 |
PAS: byte --> boolean | Jean-Esther | Помощь студентам | 4 | 02.03.2009 21:29 |
Array of byte в файл | Deight | Общие вопросы Delphi | 3 | 05.12.2008 19:10 |
file of byte | medikk | Общие вопросы Delphi | 1 | 11.08.2008 16:00 |