Помощь - Поиск - Пользователи - Календарь
Полная версия: РАБОТА С ФАЙЛАМИ
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
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.
AlaRic
Кто бы знал как мне приятно видеть на форуме представительниц слабого пола   smile.gif
В вышестоящем примере достаточно заменить reset(f) на rewrite(f) - файл автоматически будет создан на диске....
trminator
Цитата
В вышестоящем примере достаточно заменить reset(f) на rewrite(f) - файл автоматически будет создан на диске....

Ага, зато если файл существует, он будет стерт. Может, его только прочитать надо, а не писАть в него ;)
AlaRic
Цитата
Ага, зато если файл существует, он будет стерт. Может, его только прочитать надо, а не писАть в него ;)

Согласен!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.