VPF::взятие старшего и младшего байта

Djaconda

Дата 29.9.2008, 00:35 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 2.9.2007
Где: Краматорск

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

подскажите какие функции и пример если можно.

Virtuals

Дата 29.9.2008, 06:08 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 3
Всего: 11

Djaconda, longint это 2 слова или четыре байта.
мой любимый способ (обьявленние переменных по одному и тому же адресу) //не рекомендуют но мне нравится

Код


var L:Longint;
    Bl:array[1..4] of Byte absolute L;
    Wl:array[1..2] of Word absolute L;
  begin
L:=$12345678;
writeln(inttohex(L,4) );
writeln(inttohex(Bl[4],1),'_'
        ,inttohex(Bl[3],1),'_'
        ,inttohex(Bl[2],1),'_'
        ,inttohex(Bl[1],1));
writeln(inttohex(Wl[2],2),'_'
        ,inttohex(Wl[1],2));
  readln;

MetalFan

Дата 29.9.2008, 09:18 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

еще два способа:
1)

Код


  lFirstByte := lLongInt and $FF
  lLastByte := lLongInt shr 24;

Код


  lFirstByte :=  LongRec( lLongInt ).Bytes[0];
  lLastByte := LongRec( lLongInt ).Bytes[3];

Это сообщение отредактировал(а) MetalFan - 29.9.2008, 09:22

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

There are always someone smarter than you...

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