2 byte to Word

[Digital_Slavik]

Уважаемые коллеги! выручайте, простейший вопрос как то поставил в ступор...
Работаю с разными паскалями (Win, ARM, AVR) и везде по разному
подскажите, подтолкните

Имеем
var
adress:word;
x,y:byte;

нужно в адрес запихнуть x y, причем x-старший байт у-младший

В паскалях для микроконтроллеров пишем просто:
Hi(adress):=x;
Lo(adress):=y;
всё...

под Делфёй7 упорно ошибка...

заранее благодарен!

[BOBAH13]

adress := ((x and $ffff) shl 16) or (y and $ffff);

[Digital_Slavik]

BOBAH13, спасибо конечно что откликнулся, неужто в Дельфе нет четкой команды?
через арифметику это ясненько конечно... но даже в каком то древнем паскале было:
adress.Hi:=x;
adress.Lo:=y;

я в шоке

[chertovich]

Может через Move?

[Digital_Slavik]

Да, кстати забыл сказать
в выражении adress := ((x and $ffff) shl 16) or (y and $ffff);
смещаем влево не на 16 бит а на 8, т.е.
adress := ((x and $ffff) shl 8) or (y and $ffff);
иначе получать будем всегда от 0..255

[BOBAH13]

Ну да, я чет подумал наоборот, привел пример для когда два слова в двойном слове располагаются. В вашем случае будет не много не так

adress := ((x and $ff) shl 8) or (y and $ff);

[x128]

достаточно:

adress:=x*256+y

можно функцию написать:

function wcomb(a,b: byte): word;
asm
  mov   ah, dl
end;
...
adress:=wcomb(y,x);

можно немного извратиться:

  pByteArray(@adress)[0]:=x;
  pByteArray(@adress)[1]:=y;