• Начинающий хакер, спасибо что зашли к нам! Для полного удобства рекомендуем Вам сразу же зарегистрироваться. Помните, необходимо придумать сложный пароль к своему логину, в котором будут присутствовать цифры, а так же символы. После регистрации вы сможете пользоваться чатом. Так же не забудьте активировать аккаунт через письмо, высланное вам на почту ! Администрация заботится о каждом из Вас...
  • Для просмотра разделов из категории СЛИТЬ HIDE С ИСТОЧНИКА необходимо купить
  • Для просмотра разделов из категории ПОЛНЫЕ ДАМПЫ ФОРУМОВ необходимо купить

Delphi. Урок 16. Исключительные ситуации

Статус
В этой теме нельзя размещать новые ответы.

AngelOfLove

Латентный кодер
Регистрация
21 Фев 2017
Сообщения
26
Реакции
0
Баллы
2
В этом уроке мы поговорим о том, что же такое исключительные ситуации.
Исключительной ситуацией называется такая ситуация, когда происходит какая-либо ошибка во время выполения программы и ее дальнейшая работы принудительно прерывается. Ситуаций таких, уж поверьте, существует огромное множество. Возьмем банальнейший пример такой ситуации — деление на ноль. Конечно же, заранее предусмотреть ее достаточно легко, например проверять число на ноль, прежде чем делить на него. Но отследить все невозможно, особенно если программа «падает», например, из-за обращения к несозданному ранее объекту (Ошибка — Access Violation). Именно поэтому гораздо легче использовать обработку исключительных ситуаций в Delphi. Они позволяют без поиска причины возникновения ошибки отловить любую исключительную ситуацию в определенном участке кода, и произвести, если необходимо, определенные операции, т.е. обработать ошибку. Рассмотрим пример исключительной ситуации:

1 var s: TStringList;
2 begin
3 s.Add('test'); // попытка обратиться к несозданному объекту.
4 //(Нужно было ранее его создать "s := TStringList.Create;")
5 //Именно во время выполнения той строчки и возникнет ошибка
6 end;

Прежде чем отловить эту ошибку, давайте сначала рассмотрим синтаксис конструкции try — except:

1 try
2 //определенные операции
3 //в которых возможно выпадает ошибка
4 except
5 //обработка исключительной ситуации
6 //если произошла исключительная ситуация,
7 //то все последующие операции между try и except будут
8 //пропущены, затем выполнены операции, которые
9 //находятся после ключевого слова except
10 end;

Рассмотрим способ отлова ошибки из первого кода:

1 var s: TStringList;
2 begin
3 try
4 s.Add('test');
5 except
6 showmessage('Обращение к несозданному объекту');
7 end;
8 end;

Важной особенностью такой обработки исключительной ситуации является то, что само окно с ошибкой не отобразится. Отобразится только то текстовое сообщение, которые мы указали между except и end.

Если оставить обработчик исключения пустым, т.е. ничего не писать между except и end, то ошибка будет по сути «проигнорирована». Однако это не значит, что она не произошла, ведь работа того кода, который находится между try и except была прервана аварийно.

Рассмотрим немного другую конструкцию — try — finally:


1 try
2 //определенные операции
3 //в которых возможно выпадает ошибка
4 finally
5 //операции, которые будут выполнены в любом случае
6 //если исключения не произошло
7 //или оно произошло
8 end;

Получение текста самой ошибки:

1 Try
2 //Вызываем ошибку
3 Except
4 on E : Exception do
5 ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
6 end;
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху Снизу