Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > объединение значениий

Автор: Тьма 13.5.2006, 12:56

привет
у меня есть два байтовых значения, мне надо обьединить их в занчение WORD так, чтоб можно было их вытянуть обратно используя LOBYTE/HIBYTE как это сделать?

Автор: Демо 13.5.2006, 13:25

MakeWord(LowByte,HiByte)
или
lowByte+(Word(HiByte) shl 8);

Автор: Guedda 13.5.2006, 13:26

Код


function AddBytes(a,b : byte) : word;
var
  Res : WORD;
begin
  asm
    mov ah, a 
    mov al, b
    mov Res,ax
  end;
  Result := Res;
end;

Автор: Тьма 13.5.2006, 13:53

спасибо Демо, Guedda

Автор: Mechanic 15.5.2006, 01:23

Код


var L,H: byte;
      W: word absolute L;
begin
     H := $12
     L := $34;
     writeln('$'+IntToHex(W,4));
end;