Запись последовательности бит в файл
| 32-х | function WriteStr: word; |
| 16-ти | function WriteStr: word; |
Функция возвращает код успешности завершения операции и записывает биты переменной в конец файла. Текущая позиция бита в файле увеличивается на величину количества записанных бит.
Возможные возвращаемые значения:
- btOk - успешное завершение операции;
- btNevReg - неверный запрос (попытка записать в файл, предназначенный для чтения);
- btOchBB - Ошибка при выполнении ввода данных; Уточнение ошибки по - IOResult.
Пример организации последовательной записи циклов передачи в файл приведен в таблице:
| 32-х |
Var BitStr: TBitFile; {Объявление переменной}
…
Repeat
… {Обработка последовательности бит}
if BitStr. WriteStr <> btOk then break; {Запись бит в файл}
Until (IOResult <> 0);
… |
| 16-ти |
Var BitStr: PBitFile; {Объявление переменной}
…
Repeat
… {Обработка последовательности бит}
if BitStr^. WriteStr <> btOk then break; { Запись бит в файл }
Until (IOResult <> 0);
… |