Управление битами

← →
OlegNik (2008-04-10 15:28) [0]

Есть массив байт размером n элементов.
Каждый элемент масива не привышает значение 63, и на его запись требуется 6 бит.
Как сформировать новой масив, в котором на каждый элемент придется 6 бит а не 8.

← →
Рамиль © (2008-04-10 15:36) [1]

Стандартными средствами никак.
Выделить кусок памяти (6 * n) / 8 байт и бегать по нему указателем

← →
Kolan © (2008-04-10 15:37) [2]

> [0] OlegNik (10.04.08 15:28)
> Есть массив байт размером n элементов.
> Каждый элемент масива не привышает значение 63, и на его
> запись требуется 6 бит.
> Как сформировать новой масив, в котором на каждый элемент
> придется 6 бит а не 8.

Покапать TBits?

← →
Reindeer Moss Eater © (2008-04-10 15:39) [3]

shr,shl,and,or,...

← →
OlegNik (2008-04-10 16:18) [4]

> Покапать TBits?

Ну хорошо на пример
var
arraybyte : array[0..1] of Byte;
_bit : TBits;

arraybyte[0] := 53;
arraybyte[1] := 60;

_bit := TBits.Create;
_bit.size := 6;
Как дальше arraybyte закинуть в _bit и записать его в файл .
Ну и для проверки как его считать и распоковать в arraybyte?

← →
Сергей М. © (2008-04-10 16:25) [5]

> Как сформировать новой масив, в котором на каждый элемент
> придется 6 бит а не 8

Никак.

← →
Рамиль © (2008-04-10 16:25) [6]

Я чего то не пойму, шесть бит нужно ради шести бит?

Писать в файл можно минимум байтами.

Так что надо собирать 6 + 2, 4 + 4, 2 + 6 итого четыре последовательности по шесть бит в трех байтах.

Писать в файл можно минимум байтами.

Зато, например, смс посылается подобной семибитной кодировкой (pdu).

В семибитовой кодировке и почту можно отправить:)

> Reindeer Moss Eater © (10.04.08 16:52) [7]

Кстати, единственный (для меня), из Новейшей Истории факт, когда такой шнягой пришлось заниматься. Ну вот зачем 160 символов в 140 байт (!) паковать? А с номерами что учудили? Поэтому моё мнение совпадает с [6] - для чего?

Управление битами Найти похожие ветки