Работа с файлами

Файлы (для Pascal) бывают 3-х видов:

• текстовые файлы

  var fl:text; {текстовый файл}

• типизированные файлы

  var
     flabc: file of char; {типизированный файл}
     fl123: file of integer; {типизированный файл}

• нетипизированные файлы

  var fl: file; {нетипизированный файл}

• reset (fl); — Открытие существующего файла для чтения при последовательном доступе.
• rewrite (fl); — Открытие создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается.
• append (fl); — Добавление информации в конец.

• Read (f, список переменных); — Чтение из файла.
• ReadLn (f, список переменных); — Чтение из файла, но после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки.
• Write (f, список переменных); — Запись в конец файла.
• WriteLn (f, список переменных); — Запись в конец файла + символа конца строки.

• Чтение до конца файла: оператор EOF (end of file).
  eof(f); — Возвращает True, если достигнут конец файла.
• Чтение до конца строки: оператор EOL (end of line).
  eoln(f); — Возвращающая True, если достигнут конец строки.
• erase(переменная_файла); — Удалить файл.
• rename(переменная_файла,'новое имя файла'); — Переименовать файл.
• close (f); {закрытие файла} – Закрыть файл.

Работа с файлом осуществляется через три основных шага:

1. Процедура assign.
2. Процедура reset или rewrite.
3. Процедура close.

readtextfile.pas

Program readtextfile;
Uses crt;  // Подключаем модуль для clrscr
var
  fl:text;  // Для связи программы с текстовым файлом. Файловые переменные, предназначенные для работы с текстовыми файлами, должны иметь тип данных Text.
  str:string;  // Будем использовать для чтения строк из файла.
begin
  clrscr;  // clrscr - очищает экран
  assign (fl, 'programs\text.txt');  // Теперь посредством файловой переменной «fl» мы можем управлять файлом «text.txt».
  reset (fl);  // Инициация файла – это открытие файла для чтения, записи либо для чтения и записи одновременно. Процедура Reset говорит нам о том, что файл открывается только для чтения.
  while not eof(fl) do begin  // Цикл работает, пока текущая позиция не дойдёт до конца строки.
    readln (fl,str);  // Для того чтобы получить доступ к записям, хранящимся в файле, используются процедуры Read, Readln, Write, Writeln. В результате действия процедуры Read из файловой переменной «fl» будет прочитана информация и эта информация будет записана в строковую переменную «str». 
    write(str);  // Вывод на экран.
  end;
  close(fl);  //  Стандартная процедура закрытия файла.
  readln; // Ожидание ввода, т.е. нажатия "Enter" от пользователя.
end.