Процедуры и функции для работы с файлами.

Procedure AssignFile(var F; FileName:

String) ;

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

function ChangeFileExt

(const FileName, Ex

tension: String):

Strings;

Изменяет существующее расширение файла на расширение, заданное параметром Extension

Procedure ChDir(Path:

String);

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

Procedure CloseFile

(var F) ;

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

function DateTime-ToFileDate(DateTime: TDateTime): Integer;

Преобразует значение DateTime в системный формат времени создания (обновления) файла

Function DiskFree(D:

Byte): Longint;

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

function Delete-

File(const FileName:

String): Boolean;

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

Function DiskSize(D:

Byte) : Longing;

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

Function EOF (var F) :

Boolean;

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

Procedure Erase(var

F);

Уничтожает файл f. Перед выполнением процедуры не

обходимо закрыть файл (см. замечание ниже)

function FileAge(const

FileName: String): In

teger;

Для файла FileName возвращает время его последнего обновления (в системном формате) или -1, если такого файла не существует

function ExcludeTrai-

lingBackslash(const S: String): Strings;

Исключает из строки s замыкающий символ “\” (если этот символ не замыкает строку, возвращает S без изменения)

function ExpandUNC-

FileName(const File

Name: String): String;

Дополняет имя файла текущим сетевым каталогом (и

диском)

function ExtractFile-

Dir(const FileName:

String): Strings;

Извлекает из полного имени файла маршрут доступа к нему (без последнего символа “\”)

function ExtractFileExt(const FileName:

String): Strings;

Извлекает из полного имени файла его расширение (с ведущей точкой)

function ExtractFileName(cons t Fi1eName:

String): Strings;

Извлекает из полного имени файла его имя (с расширением)

function ExtractFilePath(const File

Name: String): Strings;

Извлекает из полного имени файла маршрут доступа к нему (с последним символом “\”)

function ExtractRela-

tivePath(const Bas eName, De s tName:

String): Strings;

Извлекает из полного имени файла имя маршрута относительно DestName (промежуточные каталоги заменяются символами “..\”)

function ExtractShort-

PathName(const File

Name : String): Strings;

Преобразует имя файла к короткому формату 8.3 для MSDOS и Windows 3-х

function FileDateTo-

DateTime(FileDate: Integer) : TDateTime;

Преобразует системный формат FileDate времени создания файла в формат дата-время

Function FileEx-

ists(const FileName: String): Boolean;

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

function File Get Date

(Handle: Integer): Integers;

По заданному дескриптору файла Handle возвращает время и дату его создания в системном формате. Возвращает 0 в случае успеха или код ошибки

function FileSetDate

(Handle: Integer; Age:

Integer): Integers;

Для файла с дескриптором Handle устанавливает новое время и дату его создания Age в системном формате.

Возвращает 0 в случае успеха или код ошибки

Function FindFirst

(const Path: String;

Attr: Integer; var F:

TSearchRec): Integer;

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

Procedure Find- Close(var F: TSear-

chRec);

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

Function FindNext(var

F: TSearchRec): Integer;

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

Procedure Flush(varF);

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

Procedure GetDir(D:

Byte; var S: Strings-

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

function IncludeTrailingBackslash(const S:String): String;

Возвращает полный маршрут доступа к файлу с ведомым символом “\”

Function lOResult: In

teger;

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

function IsPathDelimiter(const S: String;

Index: Integer): Boo

lean;

Возвращает True, если в строке S символ index есть “\”.

function MatchesMask

(const Filename, Mask:

String): Boolean;

Возвращает True, если имя FileName соответствует групповому имени Mask

Procedure MkDir(Dir:

String) ;

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

procedure ProcessPath

(const EditText:

String; var Drive:

Char; var DirPart:

String; var FilePart:

String) ;

Возвращает имя диска, маршрут поиска и имя файла в переменных Drive, DirPart и FilePart соответственно. EditText - полное имя файла

Procedure Rename(var

F; NewName: String);

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

Procedure Resetfvar F: File; RecSize: Word]);

Открывает существующий файл. RecSize имеет смысл

Procedure Rewrite(varFile [; Recsize: ,Word]) ;

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

Procedure RmDir(Dir:String);

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