Для записи в файл применяют такие процедуры:
Assign(F, ...) - Связать файловую переменную с файлом
Rewrite(F) - Открыть файл для записи
Write(F, ...) - Записать часть строки файла
Writeln(F, ...) - Записать строку файла и перейти к следующей
Close(F) - Закрыть файл
Чтобы связать текстовый файл с клавиатурой (при вводе) или с экраном (при выводе), можно прибегнуть к двум приёмам. Первый состоит в том, чтобы назначить файлу пустое имя.
var F_In, F_Out : Text;
begin
Assign(F_In,’’); Reset(F); { F_In связали с клавиатурой }
Assign(F_Out,’’); Rewrite(F); { F_Out связали с экраном }
. . .
end.
Второй приём заключается в применении специального имени "CON" — от слова Console (оно предусмотрено в MS-DOS и Windows).
Assign(F_In,’Con’); Reset(F); { F_In связали с клавиатурой }
Assign(F_Out,’Con’); Rewrite(F); { F_Out связали с экраном }
В операционных системах MS-DOS и Windows существует несколько специальных имен файлов, вот некоторые из них:
AUX - Первый асинхронный коммуникационный порт
CON - Клавиатура и экран (CONsole)
NUL - Фиктивное устройство (для тестирования)
PRN - Первый параллельный принтер
Аналогичные имена применяют и в UNIX-подобных системах.
Наконец, для действий с текстовыми файлами можно применять две встроенные в язык файловые переменные: INPUT и OUTPUT. Они не нуждаются ни в объявлении, ни в открытии, ни в закрытии файлов:
Readln(Input, S); { - то же самое, что Readln(S) }
Writeln(Output, S); { - то же самое, что Writeln(S) }
Файловые переменные INPUT и OUTPUT можно передавать в качестве фактических параметров внутрь процедур и функций, а также связывать их с дисковыми файлами. Вот пример копирования файла из «MyText.in» в «MyText.out»:
var S: string;
begin
Assign(Input,’MyText.in’); Reset(Input);
Assign(Output,’MyText.out’); Rewrite(Output);
While not Eof do begin
Readln(S);
Writeln(S);
end;
Close(Input); Close(Output);
