| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как целую DWORD значение разделить на BYTE
NikNet © (2005-05-29 10:27:00)Вообщем есть такое значение F1F2F3F4h($F1F2F3F4)
как мне сделать такую ф-цию
type
TStep = 1..4;
Function Dword2Byte(_Dword:DWORD; Step:tstep);
Таким образом мне надо сделать переход вперед
например...
Writeln((DWORD2BYTE($F1F2F3F4,3)); = "F3"
Как такое арифмитическим образом?
Alex Konshin (2005-05-29 10:35:00) [1]Способ #2
dwValue : DWORD;
dwValue := $F1F2F3F4;
WriteLn(Byte(dwValue shr 24)); // 3
WriteLn((dwValue shr 16) and $FF); // 2
WriteLn((dwValue shr 8) and $FF); // 1
WriteLn(Byte(dwValue)); // 0
Alex Konshin (2005-05-29 10:31:00) [2]Способ #1
var
dwValue : DWORD;
aBytes : Array [0..3] of Byte absolute dwValue;
...
dwValue := $F1F2F3F4;
WriteLn(aBytes[3]);
| |
