VPF::объединение значениий - Форум программистов

Тьма

Дата 13.5.2006, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: 1
Всего: 4

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

Это сообщение отредактировал(а) Тьма - 13.5.2006, 12:58

--------------------

Vir magni ingenii

Демо

Дата 13.5.2006, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

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

--------------------

Guedda

Дата 13.5.2006, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


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

Это сообщение отредактировал(а) Guedda - 13.5.2006, 13:26

--------------------

Ll 2

Тьма

Дата 13.5.2006, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: 1
Всего: 4

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

--------------------

Vir magni ingenii

Mechanic

Дата 15.5.2006, 01:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

Код


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

Это сообщение отредактировал(а) Mechanic - 15.5.2006, 01:24

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »