Tbits to Byte

← →
COOLer (2004-11-01 13:54) [0]

Есть массив TBits из 8-и битов, как перевести его в байт (byte), чтобы зписать его в файл???

← →
begin...end © (2004-11-01 14:02) [1]

Могу ошибаться, но, возможно, так:

var I, Value: Byte; Bits: TBits; begin ... Value := 0; for I := 0 to 7 do if Bits[I] then Value := Value or (1 shl I) end.

← →
[lamer]Barmaglot © (2004-11-01 14:03) [2]

And, Or, Xor, Not
Shl, Shr?

← →
COOLer (2004-11-01 14:18) [3]

К сожелению так не работает

> [3] COOLer (01.11.04 14:18)

> К сожелению так не работает

Почему ты так думаешь? Приведи весь код.

← →
COOLer (2004-11-01 14:54) [5]

Да разобрался, что к чему mercy

Tbits to Byte Найти похожие ветки