В этом уроке мы поговорим о том, что же такое исключительные ситуации.
Исключительной ситуацией называется такая ситуация, когда происходит какая-либо ошибка во время выполения программы и ее дальнейшая работы принудительно прерывается. Ситуаций таких, уж поверьте, существует огромное множество. Возьмем банальнейший пример такой ситуации — деление на ноль. Конечно же, заранее предусмотреть ее достаточно легко, например проверять число на ноль, прежде чем делить на него. Но отследить все невозможно, особенно если программа «падает», например, из-за обращения к несозданному ранее объекту (Ошибка — 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;
Исключительной ситуацией называется такая ситуация, когда происходит какая-либо ошибка во время выполения программы и ее дальнейшая работы принудительно прерывается. Ситуаций таких, уж поверьте, существует огромное множество. Возьмем банальнейший пример такой ситуации — деление на ноль. Конечно же, заранее предусмотреть ее достаточно легко, например проверять число на ноль, прежде чем делить на него. Но отследить все невозможно, особенно если программа «падает», например, из-за обращения к несозданному ранее объекту (Ошибка — 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;