32-х | function WriteBit ( Zn: byte) : word; |
16-ти | function WriteBit ( Zn: byte) : word; |
Zn - бит дополнения файла.
Функция возвращает код успешности завершения операции и записывает бит данных в конец файла. Текущая позиция бита в файле увеличивается на один бит.
Возможные возвращаемые значения:
Пример организации последовательной записи массива битовых данных в файл приведен в таблице:
32-х |
Var BitStr: TbitFile; I : integer; Mzn: array [1..200] of byte; |
16-ти | Var BitStr: PbitFile; I : integer; Mzn: array [1..200] of byte; |