Закрытие файла

32-хprocedure CloseBitFile;
16-тиfunction CloseBitFile:word;

Примечание. Если Ваша программа не обрабатывает код завершения, то функцию закрытия файла можно вызвать как процедуру.
32-х Var BitStr: TBitFile; {Объявление переменной}

…

BitStr := TBitFile.Create; {Выделение памяти}

Try

BitStr.OpenBitFile('a.d', btCreate); {Открытие файла “a.d”}

… {Обработка данных файла}

BitStr.CloseBitFile; { Закрытие обрабатываемого файла}

Exept on EFileBitZacr do { Выполнение при ошибке открытия файла}

ShowMessage(‘Потеря данных’); { Вывод сообщения об ошибке}

BitStr.Free; {Освобождение памяти}
16-ти Var BitStr: PBitFile; {Объявление переменной}

…

BitStr := New(PBitFile,Init(38,512)); {Выделение памяти}

BitStr^.OpenBitFile ('aa',btCreate); {Открытие файла “aa”}

… {Обработка данных файла}

if BitStr^.CloseBitFile<> btOk { Закрытие обрабатываемого файла}

Then Writeln(‘Потеря данных’); { Вывод сообщения}

Dispose(BitStr,Done); {Освобождение памяти}