Текстовые файлы в Паскале

Это файлы, состоящие из строк символов, которые заканчиваются символом "конец строки". Текстовый файл определяется описателем Text. В разделе Var это записывается так:

Пример.

Var
 Dan, Datain : Text;

Примером текстовых файлов являются стандартные файлы Input и Output. Причем из файла Input можно только читать, а в файл Output – только писать. Для чтения и записи в текстовые файлы используются стандартные операторы: Read, Write, Readln, Writeln.

Общий вид операторов ввода-вывода для текстовых файлов следующий:

Read(файл, запись);
 Readln(файл, запись);
 - - - -
 Writeln(файл, запись);

где файл — имя файла, запись — имя данного, которое читается (записывается) из файла. Это может быть символ, строка или число.

Каждый оператор Readln читает очередную запись файла, а Writeln– пишет запись в него. После этого указатель считывания-записи автоматически перемещается на следующую запись.

Создание текстового файла

Пример. Ввести с клавиатуры n строк текста и записать их в текстовый файл. Имя набора данных необходимо также задать с клавиатуры.

Program SozdText;
Var
Tx : Text; {Имя текстового файла}
FilName : String; {Имя набора данных}
Stroka : String; {Строка текста}
i,n : Integer; {Вспомогательные переменные}
Begin
Writeln(’Введите имя набора данных’);
Readln (FilName); {Ввести Имя Набора Данных}
Assign(Tx,FilName); {Связать Файл с Набором Данных}
Rewrite (Tx); {Открыть Файл для записи}
Writeln (’Введите количество строк текста’);
Readln(n); {Ввести количество строк}
Writeln (’Введите строки’);
For i:=1 to n do
Begin
Readln (Stroka); {Ввод строки с клавиатуры}
Writeln(Tx,Stroka); {Запись в файл}
End;
Close(Tx); {Закрыть файл}
End.

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

Работа с существующим файлом обычно включает в себя операции открытия его для чтения, и затем считывания из него записей, пока не появится при-знак "Конец файла" – Eof(Файл).

Пример.

While Not Eof (Файл) do
 Begin
 Readln(Файл, Запись);
 - - - - - - - -
 End;

Пример.

Program VivodFile;
Var
 Tx : Text;
 FilName,Str : String;
 KolStr : Integer;
Begin
Writeln(’Введите имя НД ’);
Readln(FilName); {Ввести Имя Набора Данных}
Assign(Tx,FilName); {Связать Файл с Набором Данных}
Reset(Tx,FilName); {Открыть Файл для чтения}
KolStr := 0;
Writeln(’Содержимое набора’);
While Not Eof(Tx) do {Пока не конец файла}
Begin
Readln (Tx,Str);
KolStr := KolStr+1;
 Writeln(Str); {вывод на экран}
End;
Writeln(’Кол-во строк - ’, kolstr);
Close(Tx); {Закрыть файл}
End.