Как вставить бит м/у 2 байтами ?

[Guest]

Здравствуйте, может и не по теме, но:
подскажите plz ответ на необычный :) вопрос:

Как вставить бит м/у 2 байтами на Delphi (/C++) ?

Т.е. интересует вот что:

_Было_:
$D7, $A7, $56
(вставляем бит = 1, м/у $2A и $A7)
_Получили_:
$D7, $4F, $AD

Может у кого-то есть процедурки? или на словах :)

WBR, Sergey

[vasketsov]

Guest
shl или shr не поможет?

[Dread Knight]

byte a[3]={0xd7,0xa7,0x56};
byte b;
byte insertbit=1;

a[2]>>=1;                        
a[2]|=(a[1]&1)<<7;
a[1]>>=1;
a[1]|=(insertbit<<7);