| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
проблема с try ... except
Polkan © (2005-01-22 18:13:00)Здравствуйте.
Помогите разобраться с проблемой, пожалуйста. Никак не пойму, в чем дело.
Код:
procedure qwe;
begin
try
Checked := ReadBool('DeleteBadsOnExit');
except
on ERegistryException do
WriteInteger('DeleteBadsOnExit', 0);
end;
end;
Проблема в том, что после возникновения exception программа вылетает из процедуры вместо того, чтобы идти в except block.
Никак не могу понять этой проблемы. Уже пробовал создавать новое приложение для проверки. Не работает по той же проблеме.
Спасибо за внимание.
begin...end (2005-01-22 18:21:00) [21]> Polkan (22.01.05 18:13)
Ну, во-первых, Вы программу из Delphi запускаете? А во-вторых, обязательно ли вохникает исключение указанного класса?
Piter (2005-01-22 18:21:00) [22]Ну значит блин вызывается исключение НЕ ERegistryException
| |
Страницы: 