Процедуры для работы с любыми файлами
Поможем в ✍️ написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

 

    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 (файл, путь, имя, расширение) – «расщепляет» имя файла, т.е. возвращает в качестве отдельных параметров путь к файлу, его имя и расширение. Процедура не проверяет наличие на диске указанного файла.

 

Дата: 2018-11-18, просмотров: 243.