Delphi функції для роботи з файлами

Нижче описуються Delphi функції для роботи з файлами. У таблиці містяться практично всі Delphi функції для роботи з файлами. як створюють, перейменовувати, що видаляють файли і каталоги, так і Delphi функції пошуку файлів, що володіють заданими характеристиками.

procedure AssignFile (var F; FileName: String);

Пов'язує файлову змінну F з ім'ям файлу FileName.

procedure ChDir (Path: String);

Змінює поточний каталог. Path - змінна, що задає шлях до встановлюваної за замовчуванням папці.

procedure CloseFile (var F);

Закриває файл, проте зв'язок файлової змінної з ім'ям файлу, встановлена ​​раніше процедурою AssignFile зберігається. Функції процедури CloseFile на системному рівні виконуються автоматично по відношенню до всіх відкритих файлів при нормальному завершенні програми. Якщо після застосування процедури CloseFile файл потрібно відкрити повторно, процедуру AssignFile можна не застосовувати, оскільки вони не пов'язані файлової змінної з файлом не рвуться.

function DateTimeToFileDate (DateTime: TDateTime): Integer;

Перетворює значення змінної DateTime типу TDateTime Delphi в системний формат часу створення (оновлення) файлу.

function FileDateToDateTime (FileDate: Integer): TDateTime;

Перетворює системний формат часу створення (оновлення) файлу в формат TDateTime Delphi.

function DiskFree (D: Byte): LongInt;

Повертає обсяг в байтах вільного простору на вказаному диску. Мінлива D - номер диска (0 - пристрій за умовчанням, поточний диск; 1 - диск А; 2 - диск B; 3 - диск С і т.д.). Функція повертає значення -1, якщо зазначений номер неіснуючого диска.

function DiskSpace (D: Byte): Integer;

Повертає обсяг в байтах повного простору на вказаному диску. Мінлива D - номер диска (0 - пристрій за умовчанням, поточний диск; 1 - диск А; 2 - диск B; 3 - диск С і т.д.). Функція повертає значення -1, якщо зазначений номер неіснуючого диска.

function EOF (var F :): Boolean;

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

procedure Erase (var F);

Знищує файл F. Перед виконанням процедури файл повинен бути закритий процедурою CloseFile.

function FileAge (const FileName: String): Integer;

Для файлу FileName повертає час його останнього оновлення (в системному форматі) або -1, якщо такого файлу не існує.

function FileExists (const FileName: String): Boolean;

Повертає True. якщо файл FileName існує, і False в іншому випадку.

function FileGetDate (Handle: Integer): Integer;

По заданому дескриптору файлу Handle повертає час і дату його створення (в системному форматі). Якщо дескриптор не існує, повертає -1.

function FileSetDate (Handle: Integer; Age: Integer): Integer;

Для файлу з дескриптором Handle встановлює новий час і дату його створення Age (в системному форматі). У разі успіху повертає 0 або код помилки в іншому випадку.

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

Повертає в змінної F типу TSearchRec перший з файлів, зареєстрованих в зазначеному каталозі. Path. шлях пошуку з маскою вибору файлів; Attr. атрибути обираних файлів.

function FindNext (var F: TSearchRec): Integer;

Повертає в змінної F наступний файл в каталозі. Мінлива F повинна бути попередньо ініційована зверненням до функції FindFirst.

procedure FindClose (var F: TSearchRec);

Звільняє пам'ять, виділену для пошуку файлів функціями FindNext і FindFirst.

procedure Flush (var F);

Очищає внутрішній буфер файлу, гарантуючи тим самим збереження всіх останніх змін файлу на диску.

procedure GetDir (D: Byte; var S: String);

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

procedure MkDir (Dir: String);

procedure Rename (var F; NewName: String);

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

Відкриває існуючий файл. Мінлива RecSize має сенс тільки для нетипізований файлів і вказує розмір блоку даних.

procedure Rewrite (var F: File [; RecSize: Word]);

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

procedure RmDir (Dir: String);

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

function GetLogicalDrives: Cardinal;

Схожі статті