Согласие на обработку персональных данных.

17.09.2018
Новая задача Как определить порядковый номер символа.

07.09.2018
Новый выпуск журнала Автоматизация и программирование.

26.08.2018
Новые видео и статья Как закрепить окна в IDE Lazarus.

18.08.2018
Новая задача Сколько слайдов поместится в песню.

17.08.2018
Новый раздел: Этюды для программистов.



Раздел: Стандартные функции Паскаля

Процедура Append

Процедура Append открывает файл в режиме добавления данных. Синтаксис:

procedure Append(var F : Text);

Процедура открывает существующий файл F в режиме добавления данных. Любые данные будут добавлены в файл F. Только текстовые файлы могут быть открыты в режиме добавления. После вызова процедуры Append файл F становится доступными только для записи. Права доступа к файлу не учитываются при вызове процедуры Append.

ОШИБКИ

Если файл F не существует, то будет сгенерирована ошибка времени выполнения. Это поведение изменилось в операционных системах Windows и Linux, где в версиях до 1.0.6 в режиме добавления будет создан новый файл.

Пример:

 
program testfunc;
  
var F : Text;
 
begin
  Assign(F, 'test.txt');
  Rewrite(F);  //Файл открыт для записи и очистки (если существует)
  Writeln(F, 'This is the first line of text.txt');
  Close(F);
  Append(F);         	//Файл открыт для записи, но не очищается
                     	//а текст будет добавлен
  Writeln(F, 'This is the second line of text.txt');
  Close(F);
 
  //Здесь будет ошибка времени выполнения программы,
  //потому что файла testappend.txt не существует
  {Assign(F, 'testappend.txt');
  Append(F);
  Writeln(F, 'This is the first line of testappend.txt');
  Close(F);}
 
  //Чтобы ошибка не останавливала программу, можно сделать так
  {$I-}
  Assign(F, 'testappend.txt');
  Append(F);
  Writeln(F, 'This is the first line of testappend.txt');
  Close(F);
  {$I+}
  if IOResult <> 0 then
    Writeln('Error opening file: "testappend.txt"');
 
  ReadLn;
end.

Ошибка ввода-вывода в Паскале

В последней части программы мы использовали директивы компилятора, чтобы отключить генерацию ошибок ввода-вывода.

Для чего это делается?

Неприятность заключается в том, что при работе с файлами могут возникать ошибки. Например, файла с указанным именем не существует, тип файла не позволяет выполнить нужную операцию, файл занят другим приложением и т.п.

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

Чаще всего это будет малопонятное обычному человеку сообщение, и этот обычный человек сильно расстроится, и, возможно, никогда уже не будет пользоваться вашей программой.

Поэтому надо стремиться к тому, чтобы предусмотреть как можно больше вариантов развития событий, и обрабатывать как можно больше ошибок в вашей программе.

Мы здесь так и поступили - отключили проверку ошибок ввода-вывода, выполнили операцию, которая может вызвать ошибку, затем снова включили проверку ошибок, а также проверили итог работы нашей программы на критическом участке. Если в переменной IOResult не ноль, то при выполнении операции ввода-вывода произошла ошибка. О чём мы и сообщили пользователю.

А вообще обработка ошибок - это отдельная тема. Как-нибудь я к ней ещё вернусь...


Как стать программистом 2.0 Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика