[
файлова змінна ]); Відкриває логічний файл (тобто файлова змінна пов'язана з фізичним файлом) для читання. Природно, що для читання слід відкривати вхідний файл. Після виконання процедури Reset курсор ставиться на перший елемент файлу (в випадку текстового файлу на перший символ) і з файлу вже можна зчитувати інформацію. Якщо текстовий файл порожній, то першим символом буде EOF - # 26. p> Наведемо приклад програми використовує процедуру Reset:
Program Reset_my_file;
Var T: Text;
Begin
Assign (T, 'my_file.txt');
Reset (T); {Відкриття файлу для читання}
End.
Що стосується стандартного вхідного текстового файлу Input то він відкривається для читання автоматично. Тобто не слід писати Reset (Input); в програмі. p> Процедура Rewrite ([файлова змінна]);
Створює і відкриває зовнішній фізичний файл пов'язаний з файлової змінної для подальшого запису в нього. Новий створений файл буває порожньою і курсор стає в самий початок файлу. Якщо описаний у процедурі Assign зовнішній файл вже існує, то він стирається і створюється заново. Зрозуміло після виконання процедури Rewrite створений для запису файл є вихідним файлом. Процедура Rewrite використовується з усіма файловими типами даних. p> Наведемо приклад програми використовує процедуру Rewrite:
Program Rewrite_my_file;
Var T: Text;
Begin
Assign (T, 'my_file.txt');
Rewrite (T); {створює новий файл my_file.txt для подальшого запису в нього}
End.
Що стосується стандартного вихідного текстового файлу Output то він відкривається для запису автоматично. Тобто не слід писати Rewrite (Output); в програмі. p> Процедура Append ([файлова мінлива]);
Відкриває зовнішній фізичний текстовий файл пов'язаний з файлової змінної для подальшого запису в нього. Однак на відміну від процедури Rewrite цей файл існує запис проводиться в самий кінець файлу. Зрозуміло процедура Append використовується для відкриття вихідних текстових файлів. Після відкриття файлу курсор стає в самий кінець файлу. Процедура Append використовується тільки для текстових файлів. p> Наведемо приклад програми використовує процедуру Append:
Program Append_my_file;
Var T: Text;
Begin
Assign (T, 'my_file.txt');
Append (T); {Відкриває логічний файл для подальшого запису інформації в самий кінець}
End.
Процедура Close ([файлова змінна]);
Зберігає і закриває відкритий фізичний файл пов'язаний з файлової змінної. Як було зазначено у визначенні файл перед закриттям повинен бути відкритий (процедурами Reset або Rewrite для всіх типів файлів або процедурою Append для текстових файлів). Якщо у вихідних файлах були проведені зміни, то для збереження інформації вони повинні бути обов'язково...
