AssignFile(f,fname);

Основи роботи з файлами

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

6.1. Оголошення файлу(файлової змінної)

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

Як і будь-яка структура даних (змінна, масив) програми, файл повинен бути оголошений в розділі опису змінних. При оголошенні файлу указується тип елементів файлу.

У загальному вигляді оголошення файлу виглядає так:

Ім’я: file of Тип елементів;

Приклади:

res: file of char; // файл символів

koef: file of real; // файл дійсних чисел

f: file of integer; // файл цілих чисел

Файл, компонентами якого є дані символьного типу, називається символьним, або текстовим. Опис текстового файлу в загальному вигляді виглядає так:

Ім’я: TextFile;

де:

· ім'я — ім'я файлової змінної;

· TextFile — позначення - типу, який вказує, що Ім'я — це файлова змінна, яка представляє текстовий файл.

6.2. Призначення файловій змінній імені

Оголошення файлової змінної задає тільки тип компонентів файлу. Для того, щоб програма могла виводити дані у файл або прочитувати дані з файлу, необхідно вказати конкретний файл, тобто пов'язати файлову змінну з конкретним файлом (задати ім'я файлу).

Ім'я файлу задається викликом процедури AssignFile, що пов'язує файлову змінну з конкретним файлом.

Опис процедури AssignFile виглядає наступним чином:

AssignFile(var f, Ім’я файла: string)

Ім'я файлу задається згідно прийнятим в Windows правилам. Воно може бути повним, тобто складатися не тільки безпосередньо з імені файлу, але і включати шлях до файлу (ім'я диска, каталогів і підкаталогів).

Нижче приведені приклади виклику процедури AssignFiie:

AssignFile(f, 'a:\result.txt');

AssignFile(f, '\students\ivanov\koreni.txt');

fname:=('zvit.txt');

AssignFile(f,fname);

6.3. Вивід даних у файл

Безпосередньо вивід в текстовий файл здійснюється за допомогою інструкції write або writeln. У загальному вигляді ці інструкції записуються таким чином:

write (Файлова змінна, Список виводу) ;

writeln (Файлова змінна, Список виводу);

де:

· Файлова змінна — це змінна, що ідентифікує файл, в який виконується вивід;

· Список виводу – це розділені комами імена змінних, значення яких треба вивести у файл. Окрім імен змінних в список виводу можна включати стрічкові константи.

Наприклад, якщо змінна f є змінною типу TextFiie, то інструкція виводу значень змінних x1 і х2 у файл може бути такій:

write(f, 'Корені рівняння', x1, х2);

Відмінність між інструкціями write і writeln полягає в тому, що інструкція writeln після виведення всіх значень, вказаних в списку виводу, записує у файл символ "новий рядок".

6.4. Відкриття файлу для виводу

Перед виводом у файл його необхідно відкрити. Якщо програма, що формує вихідний файл, вже використовувалася, то можливо, що файл з результатами роботи програми вже є на диску. Тому програміст повинен вирішити, як поступити із старим файлом: замінити старі дані новими або нові дані додати до старих. Спосіб використання старого варіанту визначається під час відкриття файлу.

Можливі наступні режими відкриття файлу для запису в нього даних:

· перезапис (запис нового файлу поверх того, що існує або створення нового файлу);

· додавання в існуючий файл.

Для того, щоб відкрити файл в режимі створення нового файлу або заміни що існує, необхідно викликати процедуру Rewrite(f), де f — файлова змінна типу TextFile.

Для того, щоб відкрити файл в режимі додавання до вже існуючих даних, що знаходяться в цьому файлі, потрібно викликати процедуру Append(f), деf — файлова змінна типу TextFile.

На мал. 6.1 приведено діалогове вікно програми, яка виконує запис або додавання в текстовий файл.

Рис. 6.1.Діалогове вікно програми запису-додавання у файл

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

Ім'я файлу потрібно ввести під час роботи в полі Edit1. Можна задати зумовлене ім'я файлу під час розробки форми додатку. Для цього треба привласнити значення, наприклад data.txt, властивості Edit1.Text.

Лістинг 6.1. Створення нового або заміщення існуючого файлу

procedure TForm1.Button1Click(Sender: TObject);

Var

f: TextFile; // файл

fName: String[80]; // ім'я файлу

i: integer;

Begin

fName := Edit1.Text;

AssignFile(f, fName);

Rewrite(f); // відкрити для перезапису

// запис у файл

for i := 0 to Memo1.Lines.Count do // рядки нумеруються з нуля

writeln(f, Memo1.Lines[i]);

CloseFile(f); // закрити файл

MessageDlg('Дані ЗАПИСАНІ у файл ',mtInformation,[mbOk],0);

End;

У лістингу 6.2приведена процедура, яка запускається натисненням командної кнопки Додати.Вона відкриває файл, ім'я якого вказане в полі Edit1, і додає в нього вміст поля Memo1.

Лістинг 6.2. Додавання в існуючий файл

procedure TForm1.Button2Click(Sender: TObject);

Var

f: TextFile; // файл

fName: String[80];// ім'я файлу

i: integer;

Begin

fName := Edit1.Text;

AssignFile(f, fName);

Append(f); // відкрити для додавання

// запис у файл

for i:=0 to Memo1.Lines.Count do // рядки нумеруються з нуля

writeln(f, Memo1.Lines[i]);

CloseFile(f); // закрити файл

MessageDlg('Дані ДОДАНІ у файл ', mtInformation, [mbOk], 0);

End;

6.5. Помилки відкриття файлу

Спроба відкрити файл може завершитися невдачею і викликати помилку часу виконання програми. Причин невдачі при відкритті файлів може бути декілька. Наприклад, програма спробує відкрити файл на гнучкому диску, який не готовий до роботи (не закрита шторка накопичувача, або диск не вставлений в накопичувач). Інша причина — відсутність файлу, що відкривається в режимі додавання (файлу немає — додавати нeма куди).

При запуску програми з Delphi у разі помилки під час відкриття файлу виникає виключення, і на екрані з'являється діалогове вікно з повідомленням (мал. 6.2).

Рис. 6.2.Приклад повідомлення про помилку відкриття файлу (програма запущена з Delphi)

Якщо програма запускається з Windows, то вікно з повідомленням про помилку виглядає інакше (мал. 6.3).

Рис. 6.3.Приклад повідомлення про помилку відкриття файлу . (програма запущена з Windows)

Програма може узяти на себе завдання контролю за результатом виконання інструкції відкриття файлу. Зробити це можна, перевіривши значення функції IOResult (input-Output Result — результат введення/виводу). Функція IOResuit повертає 0, якщо операція введення/виводу завершилася успішно; інакше — код помилки (не нуль).

Для того, щоб програма змогла перевірити результат виконання операції введення/виводу, потрібно дозволити їй це робити. Для цього треба перед інструкцією виклику процедури відкриття файлу помістити директиву компілятору — рядок {$I-}, який забороняє автоматичну обробку помилок введення/виводу. Ця директива повідомляє компілятор, що програма бере на себе контроль помилок. Після інструкції відкриття файлу слід помістити директиву {$I+}, поновлюючу режим автоматичної обробки помилок введення/виводу.

На мал. 6.4 приведена блок-схема алгоритму відкриття файлу для додавання, що забезпечує створення файлу (і що тим самим знімає помилку, що виникає при спробі відкрити неіснуючий файл) у випадку, якщо файлу, що відкривається для додавання, на диску ще немає.

Рис. 6.4.Алгоритм відкриття файлу з обробкою можливої помилки

Нижче приведений фрагмент програми, що реалізовує приведений вище алгоритм відкриття файлу.

AssignFile(f,filename);

{$I-}

Append(f) // відкрити для додавання

{$I+}

if IOResult<> 0 // помилка відкриття

then Rewrite(f); // відкрити для запису

// відкрити існуючий або новий файл

Закриття файлу

Перед завершенням роботи програма повинна закрити всі відкриті файли. Це робиться викликом процедури close. Процедура close має один параметр — ім'я файлової змінної. Приклад використання процедури:

Close(f);

Приклад програми

Наступна програма веде просту базу даних. При кожному її запуску на екрані з'являється діалогове вікно (мал. 7.5), в поля якого користувач може ввести дату і температуру повітря.

Рис. 6.5.Діалогове вікно програми База даних "Студенти-викладачі"

Дата вводиться в поле Edit1, температура — в полі Edit2. Текст програми приведений в лістингу 7.3.

Лістинг 6.3, Проста база даних (запис у файл)

unit pogoda_;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit; // дата

Edit2: TEdit; // температура

Button1: TButton; // кнопка Додати

Label1: TLabe1;

Label2: TLabe1;

procedure FormActivate(Sender: TObject);

procedure ButtonlClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction); private

{Private declarations }

public

{Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

Const

DBNAME = 'c:\Test\ListofPeople.db';

var

db: TextFile; // файл — база даних

procedure TForm1.FormActivate(Sender: TObject);

Begin

AssignFile(db, DBNAME);.

{$I-}

Append(db);

if IOResult = 0 then

Begin

Edit1.Text := DateToStr(Date); // отримати поточну дату

Edit2.SetFocus; // курсор в полі Edit2

End

Else begin

Rewrite(db);

if IOResult <>0 then begin

End;

End;

End;

// клацання на кнопці Додати

procedure Tform1.Button1Click(Sender: TObject);

Begin

if (Length(Edit1.text)=0) or (Length(Edit2.text)=0)

Then

ShowMessage('Помилка введення даних.' +#13+'Bce поля

повинні бути заповнені.')

else writeln(db, Edit1.text, ’ , ' ,Edit2.text);

End;

// Подія OnClose виникає при закритті форми

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

Begin

CloseFile(db); // закрити файл БД

End;

End.

Для програми поліморфізм

Файл бази даних відкриває процедура FormActivate, яка обробляє подію onActivate. Подія OnActivate виникає у момент активізації форми, тому процедура запускається автоматично, при активізації форми додатку. Якщо операція відкриття файлу завершується успішно, то в полі Edit1 записується поточна дата. Інформація про поточну дату повертає функція Date. Для перетворення повертаного функцією Date значення (числа типу Double) в зручну для сприйняття форму використовується функція Dateiostr. Після запису дати в полі Editi процедура обробки події onActivate із застосуванням методу setFocus встановлює курсор в полі введення температури. Якщо в процесі відкриття або створення нового файлу виникає помилка, то процедура робить недоступною кнопку Додатиі виводить інформаційне повідомлення.

Процедура TForm1.Button1Click (процедура обробки події onclick) запускається натисненням кнопки Додати(Button1). В результаті введена інформація записується в базу даних — файл pogoda.db. Перед виконанням запису програма перевіряє, чи всі поля форми заповнені, і, якщо не все, то виводить інформаційне повідомлення.

В результаті роботи процедури в кінець файлу pogoda.db буде доданий рядок, що містить дату (число, місяць, рік) і температуру.

У даній програмі використовується інструкція writein, а не write, для того, щоб дані за кожен день розташовувалися в базі даних на окремому рядку.

Звернете увагу, що список виведення інструкції writein складається з трьох елементів. Після виводу у файл дати (Edit1.text) у файл записується пропуск, а затем— температура (Еdit2.txt). Якщо температуру записати у файл відразу після дати, то числа, відповідні року і температурі, зіллються в одну послідовність цифр.

Закриває базу даних процедура TFormi.Formciose, яка обробляє подію enclose, що виникає при закритті форми додатку.

Після декількох запусків програми файл pogoda.db можливо, наприклад, таким:

9.05.2001 10 10.05.2001 12 11.05.2001 10 12.05.2001 7

Зчитування з файлу

Програма може вводити початкові дані не тільки з клавіатури, але і з текстового файлу. Для того, щоб скористатися цією можливістю, потрібно оголосити файлову змінну типу TextFile, призначити їй за допомогою інструкції AssignFile ім'я файлу, з якого прочитуватимуться дані, відкрити файл для читання (введення) і прочитати (ввести) дані, використовуючи інструкцію read або readln.

Відкриття файлу

Відкриття файлу для введення (читання) виконується викликом процедури Reset, що має один параметр — файлову змінну. Перед викликом процедури Reset за допомогою функції AssignFile файлова змінна повинна бути пов'язана з конкретним файлом.

Наприклад, наступні інструкції відкривають файл для введення:

AssignFile(f, 'c:\data.txt');

Reset(f);

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

Тому в програмі слід передбачити можливість повторної спроби відкриття файлу після підтвердження повторення операції.

Як і при відкритті файлу для запису, програма може узяти на себе завдання обробки можливої помилки при відкритті файлу, перевіряючи значення функції IOResult.

Фрагмент програми, текст якого приведений в лістингу 6.4, використовує значення функції lOResult для перевірки результату відкриття файлу. Якщо спроба відкрити файл викликає помилку, то програма виводить діалогове вікно з повідомленням про помилку і запитом на підтвердження повторного відкриття файлу.

Лістинг 6.4. Обробка помилки відкриття файлу (фрагмент програми)

Var

fname : string[80]; // ім'я файлу

f : TextFile; // файл

res : integer; // код помилки відкриття файлу (значення lOResult)

answ : word; // відповідь користувача

Begin

fname := 'a:\test.txt';

AssignFile (f, fname);

Repeat

{$I-}

Reset(f); // відкрити файл для читання

{$I+}

res:=IOResult;

if res <> 0 then

if res <> 0

then exit; // завершення процедури

// тут інструкції, які виконуються

// у разі успішного відкриття файлу

End;