Помогите записать DWORD ПЕРЕМЕНУЮ!

← →
NikNet © (2005-08-20 16:30) [0]

Помогите записать DWORD ПЕРЕМЕНУЮ!

в общем надо сделать так
есть DWORD и есть также ещё три перемнных
в таком порядке:
BYTE
WORD
BYTE

вот DWORD надо записать в них с помощью SHL/SHR/AND/...

← →
alpet © (2005-08-20 17:21) [1]

{$APPTYPE CONSOLE} uses Windows, SysUtils; var r: packed record case byte of 0:( a: byte; b: word; c: byte); 1:(dw: dword); end; begin r.dw := $11222233; with r do Writeln (Format ("%x, %x, %x", [a, b, c])); end;

← →
NikNet © (2005-08-20 17:56) [2]

Нееее мне надо с помощью логических ф-ций :(

← →
begin...end © (2005-08-20 18:12) [3]

> NikNet © (20.08.05 17:56) [2]

var A: Byte; B: Word; C: Byte; D: DWORD; begin A := D; B := D shr 8; C := D shr 24 end.

← →
Alexander Panov © (2005-08-20 19:09) [4]

var
A: Byte;
B: Word;
C: Byte;
D: DWORD;
begin
A := D;
B := (D shl 8) shr 8;
C := D shr 24
end.

← →
Alexander Panov © (2005-08-20 19:11) [5]

Еще неправильно.
Вот так правильно:

var A: Byte; B: Word; C: Byte; D: DWORD; begin A := D; B := (D shl 8) shr 16; C := D shr 24 end.

← →
begin...end © (2005-08-20 19:19) [6]

> Alexander Panov © (20.08.05 19:09) [4]
> Alexander Panov © (20.08.05 19:11) [5]

Правильный ответ уже был дан в [3].

← →
Alexander Panov © (2005-08-20 19:33) [7]

Действительно.

правильного ответа еще нет. По условию используются shl shr and

> KilkennyCat © (20.08.05 19:42) [8]

Правильный ответ уже есть. См. условие в [2]. Именно на этот пост я и отвечал, предположив, что под функциями имелись в виду операторы.

KilkennyCat © (20.08.05 19:42) [8]
> По условию используются shl shr and

A := D and $ff;
B := D shl 8 shr 16;
C := D shr 24;

Помогите записать DWORD ПЕРЕМЕНУЮ! Найти похожие ветки