Как целую DWORD значение разделить на BYTE

← →
NikNet © (2005-05-29 10:27) [0]

Вообщем есть такое значение F1F2F3F4h($F1F2F3F4)

как мне сделать такую ф-цию

type
TStep = 1..4;

Function Dword2Byte(_Dword:DWORD; Step:tstep);

Таким образом мне надо сделать переход вперед
например...

Writeln((DWORD2BYTE($F1F2F3F4,3)); = "F3"

Как такое арифмитическим образом?

← →
Alex Konshin © (2005-05-29 10:31) [1]

Способ #1

var
dwValue : DWORD;
aBytes : Array [0..3] of Byte absolute dwValue;
...

dwValue := $F1F2F3F4;
WriteLn(aBytes[3]);

Способ #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

Как целую DWORD значение разделить на BYTE Найти похожие ветки