Функция IOResult

var
    f: file of char;
    c: char;
    r: integer;
 
begin
    assign (f, 'c:\file1.txt');
 
    {$I-}
    reset (f);
    {$I+}
 
    r := ioresult;
 
    if r <> 0 then
        writeln ('Такого файла нет')
    else
        while not eof (f) do begin
            read (f, c);
            writeln (c);
        end;
 
    close (f);
 
readln
end.	

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

Чтобы избежать преждевременного выхода из программы, можно отключить автоматический контроль ошибок ({$I-}) и воспользоваться функцией IOResult.

Функция IOResult возвращает ноль лишь в том случае, если файл существует.