Здравствуйте, Аноним, Вы писали:

А>Как раздраконить на 4 байта,

А>формула есть какая нибудь ?

А>dw:=200;

А>b1:=0;
А>b2:=0;
А>b3:=0;
А>b4:=200;


А>dw:= > 255 to 9999999 ?


Type
TMyDword=packed record
case byte of
1asDword:DWORD);
2b1,b2,b3,b4:byte);
3bx:array[0..3] of byte)
end;

var a:TMyDword;x:byte;

a.asDword:=$FF00FF00;

x:=b2;