Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

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

> [3] COOLer   (01.11.04 14:18)


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

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

---

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c