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

> ВНИМАНИЕ!

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

> Обработка исключени try....except
kosyak
сообщение 21.05.2008 15:31
Сообщение #1


Пионер
**

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

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


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

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


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

Заранее спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 5)
hardcase
сообщение 21.05.2008 16:06
Сообщение #2


code warrior
****

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

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


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


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


Гость






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


Пионер
**

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

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


Ошибка действительно возникает, только пишет "Read beyond end of file"(чтение после конца файла, если я подсовываю файл не того формата). Мне нужно чтоб этого не было, а было мое сообщение. Через винду запускаю тоже самое...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 21.05.2008 16:57
Сообщение #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 
 К началу страницы 
+ Ответить 
kosyak
сообщение 21.05.2008 17:30
Сообщение #6


Пионер
**

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

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


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

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

 



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