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

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Обработка исключени try....except
сообщение
Сообщение #1


Пионер
**

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

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


Доброго времени суток. Помогите разобраться со следующим вопросом:
Есть следующий код:
Код

try
      ProcedureName;
except
      ShowMessage('Ошибка');


Если возникает ошибка то никакого ShowMessage не появляется. Никогда еще не пользовался этим оператором. Помогите разобраться в чем дело...
В ProcedureName происходит много всего (и чтение из файла, и запись в файл. Также вызываются другие процедуры).

Заранее спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


code warrior
****

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

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


А ошибка действительно возникает?


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






kosyak
А в настройках IDE снято "Stop on Delphi Exceptions"? Если нет, то ты сможешь получать нужный эффект только при запуске без IDE, из Проводника...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Пионер
**

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

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


Ошибка действительно возникает, только пишет "Read beyond end of file"(чтение после конца файла, если я подсовываю файл не того формата). Мне нужно чтоб этого не было, а было мое сообщение. Через винду запускаю тоже самое...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Цитата
Ошибка действительно возникает, только пишет "Read beyond end of file"


Может эта ошибка возникает еще до твоей обработки ? Кстати, код засекречен ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

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

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


Все, спасибо! Как-то все само-собой исправилось... Спасибо...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 23.10.2021 9:24
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name