РАБОТА С ФАЙЛАМИ Опции

[WebGirl]

Пользователь вводит с клавиатуры имя файла. Его надо открыть. А если он не существует на диске? Программа генерирует ошибку и завершает работу. На Делфи все просто, а вот на Паскале...
Как обработать эту ошибку ввода-вывода? ???

[Clane]

IoResult. Если эта функция возвращает 0, значит файл не существует. Вот небольшой пример :

var
f: file of char;
begin
assign(f,'my_file.dat');
{$I-} {отключаем контроль ошибок ввода-вывода}
reset(f);
{$I+}
if IOResult<>0 then
.....{файл не существует}
else
.... {файл существует}
end.