Чтение бита данных из файла
| 32-х | function ReadBit: byte; |
| 16-ти | function ReadBit: byte; |
Функция возвращает значение очередного, считанного из файла бита, в случае невозможности выполнения операции возвращается код ошибки. Текущая позиция бита в файле увеличивается на один бит.
Возможные возвращаемые значения:
- bt0, bt1 - успешное завершение операции;
- btNevReg - неверный запрос (попытка прочитать файл, предназначенный для записи);
- btOchBB - Ошибка при выполнении ввода данных; Уточнение ошибки по - IOResult.
- btEndFile - Конец данных в файле.
Пример организации последовательного чтения бит данных из файла приведен в таблице:
| 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);
… |