Подпрограммы для работы с файлами

Function AssignFile (var F; FileName: String);

Связывает файловую переменную F с именем файла FileName.

Function ChDir(Path: String);

Изменяет текущий каталог: Path - строковое выражение, содержащее путь к устанавливаемому по умолчанию каталогу.

Function CloseFile (var F);

Закрывает файл, однако связь файловой переменной F с именем файла, установленная ранее процедурой AssignFile, сохраняется. При создании нового или расширении старого файла процедура обеспечивает сохранение в файле всех новых записей и регистрацию файла в каталоге. Функции процедуры CloseFile выполняются автоматически по отношению ко всем открытым файлам при нормальном завершении программы. Поскольку связь файла с файловой переменной сохраняется, файл можно повторно открыть без дополнительного использования процедуры AssignFile.

Function DiskFree (D: Byte): Longint;

Возвращает объем в байтах свободного пространства на указанном диске: D - номер диска (0 - устройство по умолчанию, 1 - диск А , 2 - диск В и т.д.). Функция возвращает значение -1, если указан

номер несуществующего диска.

Function DiskSpace (D: Byte): Longint;

Возвращает объем в байтах полного пространства на указанном диске: D - номер диска (0 - устройство по умолчанию, 1 - диск А, 2- диск В и т.д.). Функция возвращает значение -1, если указан номер несуществующего диска.

Function EOF (var F): Boolean;

Тестирует конец файла и возвращает True, если файловый указатель стоит в конце файла. При записи это означает, что очередной компонент будет добавлен в конец файла, при чтении - что файл исчерпан.

37

Уничтожает файл F. Перед выполнением процедуры необходимо закрыть файл.

Function FileExists (const FileName: string): Boolean;

Проверяет существование файла с именем (и, возможно, маршрутом доступа) FileName и возвращает True, если файл существует.

Function FindClose (var F: TSearchRec);

Освобождает память, выделенную для поиска файлов функциями FindFirst/FindNext.

Function FindFirst (const Path: String; Attr: Integer; var F: TSearchRec): Integer;

Возвращает атрибуты первого из файлов, зарегистрированных в указанном каталоге: Path - маршрут поиска и маска выбора файлов; Attr - атрибуты выбираемых файлов; F - переменная типа TSearchRec, в которой будет возвращено имя первого выбранного файла.

Function FindNext (var F: TSearchRec): Integer;

Возвращает в переменой F имя следующего файла в каталоге. Переменная F должна предварительно инициироваться обращением к функции FindFirst.

Function Flush

(var F);

Очищает внутренний буфер файла и, таким образом, гарантирует сохранность всех последних изменений файла на диске.

Function GetDir(D: Byte; var S: Strings;

Возвращает имя текущего каталога (каталога по умолчанию): D - номер устройства (0 - устройство по умолчанию, 1 -диск А, 2 - диск В и т.д.); S- переменная типа String, в которой возвращается путь к текущему каталогу на указанном диске.

Function IOResult: Integer;

Возвращает условный признак последней операции ввода-вывода.

Function MkDir (Dir: String);

Создает новый каталог на указанном диске: Dir маршрут поиска каталога. Последним именем в маршруте, т.е. именем вновь создаваемого каталога не может быть имя уже существующего каталога.

Function Rename (var F; NewName: String);

Переименовывает файл F; NewName - строковое выражение, содержащее новое имя файла. Перед выполнением процедуры необходимо закрыть файл

Function Reset (var F: File [; RecSize: Word]);

Открывает существующий файл. RecSize имеет смысл только для нетипизированных файлов и указывает размер блока данных.

Function Rewrite (var F: File [; Recsize: Word]);

Создает новый файл. RecSize имеет смысл только для нетипизированных файлов и указывает размер блока данных.

Function RmDir (Dir: String);

Удаляет каталог Dir. Удаляемый каталог должен быть пустым, т.е. не содержать файлов или имен каталогов нижнего уровня.