function CheckBit(const num, index : Byte) : boolean;
begin
result := boolean((num shr index) and 1);
end;
Работа с битами
как можно сичтывать информацию из файла побитно, ну и побитно ее выводить ?
Побитно никак, лучше загрузи весь файл как массив байтов и читай побайтно: потом выводи побайтно, каждый байт прогоняя в цикле от 0 до 7 и смотри значения.
Например так
где num - твой байт а index - номер проверяемого бита (0..7)
Например так
Код:
где num - твой байт а index - номер проверяемого бита (0..7)
Спасибо за мыслю !!!
Сделал не много по другому , но за основу взял твой совет !!!!!!:)
Сделал не много по другому , но за основу взял твой совет !!!!!!:)