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

Assign (файловая_переменная,имя_файла) – связать файловую переменную с именем файла.

Close (файловая_переменная) – закрыть файл.

Rename (файловая_переменная, новое_имя) – переименовать файл.

Erase (файловая_переменная) – уничтожить файл.

Flush (файловая_переменная) – очищает внутренний буфер файла и, таким образом гарантирует сохранность всех последних изменений файла на диске. Процедура игнорируется, если файл был открыт для чтения процедурой Reset.

ChDir (путь) – изменение текущего каталога. Путь – это строковое выражение, содержащее путь к устанавливаемому по умолчанию каталогу.

GetDir (устройство, каталог) – определяет имя текущего каталога. Устройство – выражение типа Word, содержащее номер устройства: 1 – диск А, 2 – диск В и т.д. Каталог – переменная строкового типа, в которой возвращается путь к текущему каталогу на указанном диске.

MkDir (каталог) – создает новый каталог на указанном диске. каталог – переменная строкового типа, задающая путь к каталогу.

RmDir (каталог) – удаляет каталог. Удаляемый каталог должен быть пустым.

FindFirst (маска, атрибуты, имя) – возвращает атрибуты первого из файлов, зарегистрированных в указанном каталоге.

Маска – строковое выражение, содержащее маску файл, например a?.pas, *.dat. Маске может предшествовать путь.

Атрибуты – выражение типа Byte, содержащее уточнение к маске. В модуле Dos.tpu определены следующие файловые атрибуты:

ReadOnly – только чтение,

Hidden – скрытый файл,

SysFile – системный файл,

VolumeID – идентификатор тома,

Directory – имя подкаталога,

Archive – архивный файл,

AnyFile – любой файл.

Имя – переменная типа SearchRec, в которой будет возвращено имя файла. Этот тип в модуле Dos.tpu определяется следующим образом:

Type

SearchRec=record

Fill:array[1..21] of Byte;

Attr:Byte; {атрибуты файла}

Time:LongInt; {время создания или последнего обновления}

{файла; возвращается в упакованном формате}

Size:LongInt; {длина файла в байтах}

Name:String[12] {имя и расширение файла}

end;

Для распаковки параметра Time используется процедура:

UnPackTime (Time:LongInt; var T:DateTime);

В модуле Dos.tpu объявлен следующий тип DateTime:

Type

DateTime=record

year :Word; {год в формате XXXX}

month:Word; {месяц 1..12}

day :Word; {день 1..31}

hour :Word; {час 0..23}

min :Word; {минуты 0..59}

sec :Word; {секунды 0..59}

end;

Результат обращения к процедуре FindFirst можно проконтролировать с помощью функции DosError типа Word, которая возвращает значения:

0 – нет ошибок;

2 – не найден каталог;

18 – каталог пуст (нет указанных файлов).

FindNext (следующий_файл) – возвращает имя следующего файла в каталоге.

Пример. Вывести на экран список всех pas-файлов текущего каталога.

Uses Dos;

Var

S:SearchRec;

Begin

FindFirst(’*.pas’,AnyFile,S);

While DosError=0 do

Begin

With S do

WriteLn(Name:12;Size:12);

FindNext(S)

End

End.

GetfTime (файловая_переменная, время) – возвращает время создания или последнего обновления файла. Время – переменная типа LongInt. Время возвращается в упакованном формате.

SetfTime (файловая_переменная, время) – устанавливает новую дату создания или обновления файла. Время – переменная типа LongInt, указывающая дату и время в упакованном формате.

Упаковать запись типа DateTime в переменную типа LongInt можно процедурой

PackTime (var T:DateTime; var Time:LongInt);

GetfAttr(файловая_переменная, атрибуты) – позволяет получить атрибуты файла.

SetfAttr(файловая_переменная, атрибуты) – позволяет установить атрибуты файла.

Fsplit (файл, путь, имя, расширение) – «расщепляет» имя файла, т.е. возвращает в качестве отдельных параметров путь к файлу, его имя и расширение. Процедура не проверяет наличие на диске указанного файла.