Скачать: CL | DM;

Как целую 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]);

---

← →
Alex Konshin ©   (2005-05-29 10:35) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c