If FileHandle > 0 then

// операции, выполняемые, когда файл открыт

Else

// ошибка: FileHandle содержит код ошибки открытия

Функции работы с дисками, каталогами и устройствами:

ExtactFileDrive (const FileName: string): string;

Возвращает имя диска, на котором размещен файл с именем FileName.

 

ExtractFileDir (const FileName: string): string;

Возвращает имя диска и путь к файлу, заданному строкой FileName.

 

IncludeTrailingBackSlash (const S: string): string;

Функция возвращает заданный путь, оканчивающийся символом обратного слеша в конце. Если указанный путь содержал в конце обратный слеш, то возвращается заданное значение без изменений.

S – строковый параметр, определяющий путь.

Пример.

Var

S: string;

Begin

S:= 'C:\Test\My';

S:=IncludeTrailingBackSlash (S); // функция возвратит 'C:\Test\My\'

End;

 

 

GetCurrentDir: string;

Возвращает имя текущей папки и полный путь к ней.

 

Пример.

Var

Dir: string;

Begin

ChDir ('C:\Test');

ChDir ('My');

Dir:= GetCurrentDir; // получим Dir - 'C:\Test\My'

End;

 

 

DirectoryExists (Name: string): boolean;

Позволяет проверить, существует ли папка с именем Name.Указанный путь может быть абсолютным или относительным.

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

 

Пример.

If not DirectoryExists ('C:\Temp') then CreateDir ('C:\Temp');

 

FileExists (const FileName: string): boolean;

Позволяет проверить, существует ли файл с именем FileName.Указанный путь может быть абсолютным или относительным.

Пример.

If not FileExists ('C:\Temp\test.txt') then FileCreate ('C:\Temp\test.txt');

 

 

DiskSize (Drive: byte): Int64;

Функция возвращает размер диска, указанного строкой Drive(0 – текущий диск, 1 – диск А, …), в байтах. Если указанного диска не существует, функция возвращает значение, равное -1.

 

 

DiskFree (Drive: byte): Int64;

Функция возвращает размер свободного места на диске, указанном строкой Drive(0 – текущий диск, 1 – диск А, …), в байтах. Если указанного диска не существует, функция возвращает значение, равное -1.

 

Функции работы с атрибутами файла:

FileGetAttr (const FileName: string): integer;

Функция возвращает атрибуты файла, заданного строкой FileName.

Файлы могут иметь следующие атрибуты:

Атрибут Числовое значение Значение
faReadOnly $01 только для чтения
faHidden $02 скрытый файл
faSysFile $04 системный файл
faVolumeID $08 идентификатор
faDirectory $10 папка
faArchive $20 архивный файл
faAnyFile $3F любой файл

 

Если файл с указанным именем не найден, функция возвращает -1.

FileSetAttr (const FileName: string; Attr: integer): integer;

Функция позволяет установить Attr атрибуты файла, указанного именем FileName.

Пример.

Var

Attrs : integer;

Begin

Attrs:= FileGetAttr ('MyFile.sys');

If Attrs and faHidden <> 0 then FileSetAttr ('MyFile.sys', Attrs and faHidden);

End;

 

 

Функции работы с именем и расширением файла:

ChangeFileExt (const FileName, Extension: string): string;

Функция позволяет изменить расширение имени файла и возвращает новое полное имя файла.








Дата добавления: 2015-08-14; просмотров: 646;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.008 сек.