Показать сообщение отдельно
  #3  
Старый 20.03.2016, 15:55
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Как и другие ошибки заключить проблемную секцию в try except end
Например, у вас возможна ошибка при подключении к базе данных, возможные причины, нет самой базы, она недоступна или еще что-то подобное. Тогда пишем такой код:
Код:
try
 AdoConnection.Open;
except
 ShowMessage('Ошибка подключения к серверу баз данных. ');
 Exit;
end;
Если же возникает необходимость более подробно изучить ошибку, то используют уже специализированный класс обработки ошибки:
Код:
try
 AdoConnection.Open;
except
  on E: EDatabaseError
  do begin
      ShowMessage('Ошибка БД ' + E.Message);
      Exit;
      end;
  on E: EOleError
      do begin
      ShowMessage('Ошибка OLE ' + E.Message);
      Exit;
      end;
end;
Но никогда не надо глушить все ошибки, как уже сказали частенько ошибка может оказаться полезной.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием