4. Функцiї для роботи з типізованими файлами

1. Eof(NameV); − має значення True, якщо покажчик файла NameV вста-новлено на позначцi кiнця файла, i False − у противному разі.

2. Filepos(NameV); − визначає номер елемента, на якому мiститься по-кажчик файла.

3. Filesize(NameV); − визначає кiлькiсть елементiв у файлi.

Зауваження. Цi три функцiї повиннi застосовуватись до вже вiдкритих файлiв.

5. Послідовність роботи з файлами

Для ч и т а н н я даних з файла необхiдно виконати таку послiдовнiсть процедур:

1. вiдкрити файл для читання, використовуючи процедури AssignFile i Reset;

2. прочитати данi з файла, використовуючи процедури Read, Seek;

3. закрити файл для читання, використовуючи процедуру Closefile.

Для з а п и с у даних у файл необхiдно виконати таку послiдовнiсть процедур:

1. вiдкрити файл для запису, використовуючи процедуру AssignFile, а також одну з процедур Rewrite, Reset;

2. записати данi в файл, використовуючи процедури Write, Seek;

3. закрити файл для запису, використовуючи процедуру Closefile.

6. Контроль операцiй читання даних

Для контролю правильностi операцiй введення-виведення iснує дирек-тива {$I } та функція FileExists(File_Name).

1) Без вказівки директива {$I } перебуває в активному станi − {$I+}. У цьому режимi при виникненнi помилки введення-виведення робота програми переривається − i користувач дiстає повiдомлення про номер i мiсцезнаходжен-ня помилки. Якщо директива перебуває у пасивному станi {$I−}, то при виник-неннi помилки виконання програми не припиняється, але наступнi операцiї введення-виведення затримуються. Стан затримання зберiгається доти, доки у програмі не буде викликано функцiю Ioresult. Ця функцiя повертає значення 0, якщо попереднi операцiї введення-виведення були коректними, i певне нену-льове (ціле) значення при виявленнi помилки. Пiсля звертання до цiєї функцiї значення її обнулюється.

Наведемо фрагмент програми, котрий показує, у який спосіб можна опра-цювати помилку, пов’язану з вiдкриттям для зчитування неiснуючого файла. Користувач може ввести помилкове iм’я, i, якщо файла з таким iменем не iснує, програма повiдомить про це та ще раз попросить ввести iм’я файла. Якщо ж файл iснує, то буде видано його розмiр.

…………………………….

Var s : string[20]; b : boolean; f : file; …

begin

b:=false;

repeat

ShowMessage (’Введіть ім’я файла в Edit1’);

Edit1.Text:= s;

Assignfile(f,s);

{$I-} reset(f); {$I+}

if IOresult=0 then b:=true

else ShowMessage(’Такий файл не віднайдено’);

until b;

ShowMessage (’Розмір файла: ’, filesize(f) ) ;

closefile(f);

end;

2) функція FileExists(File_Name); − має значення True, якщо не винайде-но на диску фiзичного файла, який має iм’я File_Name, i False − у противному разі. Наведемо фрагмент програми, у якому файл ‘Товари.doc’ відкривається для запису чи читання, якщо файл віднайдено на диску, або створюється такий файл для запису даних, якщо файла ще не існує.

If FileExists (‘Товари.doc’) then reset(f)

else begin

rewrite(f);

ShowMessage(’Файл порожній’);

end;