Проблема с проверкой в модуле... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Проблема с проверкой в модуле... |
priboltik |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 58 Пол: Мужской Реальное имя: Константин Репутация: 1 |
доброго времени суток!
Хотелось бы узнать, почему у меня проверка, котторая стоит в модуле не работает в основной программе.. в частности проверка на наличие файла на диске.. модуль: MIKHAL.PAS ( 1.23 килобайт ) Кол-во скачиваний: 453 прога: PROGRAM4.PAS ( 2.97 килобайт ) Кол-во скачиваний: 460 |
volvo |
Сообщение
#2
|
Гость |
Ты не учитываешь одну очень незначительную деталь:
Цитата(TP Help - IOResult) I/O-checking must be off--{$I-}--to trap I/O errors using IOResult. If an I/O error occurs and I/O-checking is off, all subsequent I/O operations are ignored until a call is made to IOResult. A call to IOResult clears the internal error flag. То есть здесь:until ioresult=0; { <--- } IOResult уже как раз = 0 (ты уже обращался один раз к IOResult, и его значение после обращения было очищено - сброшено в 0), и ты пытаешься читать из файла, которого нет... Решение: repeat |
priboltik |
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 58 Пол: Мужской Реальное имя: Константин Репутация: 1 |
Все понятно.. спасибо
|
priboltik |
Сообщение
#4
|
Пионер Группа: Пользователи Сообщений: 58 Пол: Мужской Реальное имя: Константин Репутация: 1 |
так задача вроде работает..вот толко при выводе тех строк, кот. входят в строку, выводится нули.. не могу понять где ошибка..
прога: PROGRAM4.PAS ( 2.98 килобайт ) Кол-во скачиваний: 433 Модуль: MIKHAL.PAS ( 1.3 килобайт ) Кол-во скачиваний: 432 |
Текстовая версия | 24.04.2024 1:18 |