Текущий архив: 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.027 c
