Запись последовательности бит в файл

32-хfunction WriteStr: word;
16-тиfunction WriteStr: word;

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

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

Пример организации последовательной записи циклов передачи в файл приведен в таблице:
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);