Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.078 c
14-1098607442
race1
2004-10-24 12:44
2004.11.14
подробнее о xp


3-1097855884
Hmm
2004-10-15 19:58
2004.11.14
прошу, поделитесь информацией о компонентах для работы с IBase.


14-1098805111
Сергей__С
2004-10-26 19:38
2004.11.14
Инсталятор


1-1098936553
Babay
2004-10-28 08:09
2004.11.14
Два вопроса по Д8


1-1099327256
Ralf
2004-11-01 19:40
2004.11.14
Перетаскивание окон