Работа с текстовыми файлами

     Текстовый файл – это файл, содержащий последовательность символов, разбитую на строки.

     Для создания текстового файла необходимо прежде всего объявить соответствующую файловую переменную в разделе var как переменную типа TextFile. Формат:

     var <имя файловой переменной > : TextFile ;

     Чтобы открыть текстовый файл для записи или для чтения, необходимо отождествить (связать) файловую переменную с именем тестового файла с помощью процедуры AssignFile следующего формата:

     AssignFile (<имя файловой переменной>, '<имя текстового файла>');

     Пример. var f: TextFile;

                   . . .

                  AssignFile(f, 'MyFile.txt');

Затем, если текстовый файл (новый) надо открыть для записи, необходимо использовать процедуру Rewriteследующего формата:

     Rewrite <имя файловой переменной>;

     Пример. Rewrite (f);

Если же текстовый файл (уже существующий) надо открыть для чтения, необходимо использовать процедуру Resetследующего формата:

     Reset <имя файловой переменной>;

     Пример. Reset (f);

     Для работы с текстовым файлом (т.е. для записи данных в текстовый файл и для чтения данных из текстового файла) используют процедуры ввода-вывода Write, Writeln, Read, Readln соответствующего формата., т.е. Write(<имя файловой переменной>, <список вывода>); Writeln . . . ; Read . . . ; Readln (см п. 2.3).

     Пример. Write (f, a:3, b:4);

     После окончания работы с текстовым файлом его необходимо закрыть с помощью процедуры Close File. Формат процедуры:

     CloseFile <имя файловой переменной>;

     Пример. CloseFile (f);

     Задание 2. Составить программу, состоящую из трех блоков. Первsq блок принимает с клавиатуры год рождения студента и пишет его в текстовый файл File1.txt. Второй блок читает из текстового файла год рождения студента, вычисляет его возраст и выводит на экран дисплея. Третий блок читает из текстового файла год рождения студента, вычисляет его возраст и пишет его в текстовый файл File2.txt.

     Задание 3. Составить программу, которая принимает с клавиатуры 12 целых чисел и пишет их в текстовый файл по 4 штуки в строку (т.е. в три строки). Затем читает их из файла и выводит на экран двумя способами: в одну строку и в две строки по 6 штук.

     Теперь можно рассмотреть вопрос о выводе результата работы консольного приложения на принтер. Специальная процедура procedure AssignPrn(var F: Text); отождествляет файловую переменную F с текущим принтером. Чтобы получить распечатку результатов работы консольного приложения, необходимо имя этой переменной указать первым параметром в списке процедуры Write; или Writeln;. Кроме того, необходимо в разделе программы uses указать имя подключаемого библиотечного модуля Printers .

     Пример. Program Printing;

                   Uses Printers;

                   Var Prints: TextFile;

                   Begin

                       AssignPrn(Prints);

                       Rewrite(Prints);

                       Writeln(Prints, ‘Hello!’);

                       CloseFile(Prints);

                  End.