| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Tbits to Byte

COOLer ©   (2004-11-01 13:54:00) 

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

---

COOLer   (2004-11-01 14:54:00) [1]

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

---

begin...end   (2004-11-01 14:27:00) [2]

> [3] COOLer   (01.11.04 14:18)


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

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

---

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

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

---

[lamer]Barmaglot   (2004-11-01 14:03:00) [4]

And, Or, Xor, Not
Shl, Shr?

---

begin...end   (2004-11-01 14:02:00) [5]

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

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.

---

Наверх