Операции ввода-вывода

Способ контроля операций ввода-вывода зависит от способа компиляции программы. При заданной по умолчанию директиве {$I+} после каждой операции ввода-вывода контролируется её выполнение. Если будет обнаружена ошибка, выполнение программы прекратится и на консоли появится сообщение об ошибке с указанием её типа. После директивы {$I-} при обнаружении ошибки выполнение программы не прекратится, но будут отменены последующие действия по вводу-выводу до обращения к стандартной функции IOresult, которая возвращает целое число. Если результат этой функции 0, то предыдущие операции ввода-вывода выполнены правильно. В противном случае это число определяет код ошибки.

Пример и возможности операций ввода-вывода

Пример:

Program Delete;
Var
FileVar : file;
FileName : string [40];
Flag : boolean;
begin
Write ('FileName:='0);
Readln (FileName);
Assign (FileVar,FileName);
{$I-}
Erase (FileVar);
{$I+}
if not (Ioresult=0) then
Writeln ('File'+FileName+'did not exist');
end.

С помощью данной программы будет удалён набор данных, имя которого будет указано с консоли.

Если указано имя несуществующего набора данных, то будет выведено сообщение, что этот набор данных не существует.

Если из программы удалить директивы компилятора, а удаляемый набор данных не существует, то выполнение программы будет прекращено из-за ошибки операции Erase, относящейся к несуществующему набору данных.