IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> РАБОТА С ФАЙЛАМИ
сообщение
Сообщение #1


Гость






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


Гость






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

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


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Кто бы знал как мне приятно видеть на форуме представительниц слабого пола   smile.gif
В вышестоящем примере достаточно заменить reset(f) на rewrite(f) - файл автоматически будет создан на диске....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Цитата
В вышестоящем примере достаточно заменить reset(f) на rewrite(f) - файл автоматически будет создан на диске....

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


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


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

Согласен!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.08.2017 2:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"