Чтение бита данных из файла

32-хfunction ReadBit: byte;
16-ти

function ReadBit: byte;

Функция возвращает значение очередного, считанного из файла бита, в случае невозможности выполнения операции возвращается код ошибки. Текущая позиция бита в файле увеличивается на один бит.

Возможные возвращаемые значения:

Пример организации последовательного чтения бит данных из файла приведен в таблице:

32-хVar BitStr: TbitFile; BitZn : byte; {Объявление переменной}


Repeat

… {Обработка последовательности бит}

BitZn := BitStr.ReadBit; {Чтение бита данных}
Until (IOResult <> 0) or (BitZn > 1);

16-ти

Var BitStr: PbitFile; BitZn : byte; {Объявление переменной}


Repeat

… {Обработка последовательности бит}

BitZn := BitStr^.ReadBit; {Чтение бита данных}
Until (IOResult <> 0) or (BitZn > 1);