Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.03.2016, 11:28
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Обработка ошибок

Ребята , научите обрабатывать ошибки.
Никогда не приходилось использовать.

Есть БД , когда появляется сообщение
Код:
cannot perform this operation on a closed dataset

Выполнить определённое действие.
Ответить с цитированием
  #2  
Старый 20.03.2016, 10:43
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

иногда ошибки полезней предотвратить
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
starcon (20.03.2016)
  #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;
Но никогда не надо глушить все ошибки, как уже сказали частенько ошибка может оказаться полезной.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение:
starcon (20.03.2016)
  #4  
Старый 20.03.2016, 19:31
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Спасибо всем, разобрался.

Всё верно
Код:
Но никогда не надо глушить все ошибки, как уже сказали частенько ошибка может оказаться полезной.
Соединение очень слабенькое через интернет, вот и иногда вылазит.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:48.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter