Сложить биты в байт и разложить назад

[Oleg1988]

С помощью форума нашел пример как из массива бит сделать байт

if pinb4_bit=0 then   b[i] :=1 else  b[i] :=0;

  if i=7 then begin
    For I := 0 to 7 do  

  d[a] := d[a] or (b[i]);
  d[a]:=d[a] shl 1;
End;    inc(a);  i:=-1; end; inc(i);

Теперь незнаю как разложить обратно.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

давай так - напишите, что у Вас есть и что Вы хотите получить...

p.s. а вообще из одного байта получить массив бит не просто, А ОЧЕНЬ ПРОСТО:

  for i:=8 downto 1 do begin
    b[i] := (A and 1);
    A := A shr 1;
  end;

кроме описания переменных - это полный код!

[Oleg1988]

Афигеть, теперь скорость передачи данных повысится до 2кб\с . Раньше я передавал каждый бит отдельным пакетом. Более детальный код.

[CODE]

begin

if pinb4_bit=0 then b[i] :=1 else b[i] :=0;

if i=7 then begin // сдесь мы принимаем биты и слаживаем их в байты
For I := 0 to 7 do
d[a] := d[a] or (b[i]);
d[a]:=d[a] shl 1;
End; inc(a); i:=-1;

end;
inc(i); tcnt0:=0; TOIE0_bit :=1; tcnt0:=0;
end;


procedure peredacha; org $012;
begin
TOIE0_bit:=0; k:=0; k:=a; a:=0;


for a:=0 to k do begin b[i]:= d[a] ; \\ сдесь принимаем байты и разлаживаем на биты
for i:=7 downto 0 do begin
b[i]:= (b[i] and 1); if b[i]=%1 then UART1_Write_text ('1'); if b[i]=%0 then UART1_Write_text ('0'); \\ выводим на экран принятое
b[i]:= b[i] shr 1;
End;

end; TOIE0_bit:=0; UART1_Write(10); UART1_Write(13);

end;
[/СODE]
Почемуто после разложения байт=бит на экране одни 000. Гдето есть ошибка.