В этом уроке мы с вами познакомимся с исключительными ситуациями в Delphi.
Исключительная ситуация — это какая-либо ошибка, происходящая во время выполнения нашей программы, и после этого наша программа критически прерывается.

Например самая глупая ошибка которая может остановить нашу программу, это деление на нуль. Вроде самая простая ошибка, которую легко предотвратить сточкой:

if Edit1.Text=’0′ then
ShowMessage(‘На ноль нельзя делить!’);

Но иногда мы забываем сделать такую проверочку.

var
test: TStringList;
begin
test.Add(‘null’);

В представленном коде ошибкой является обращение к не созданному объекту типа TStringList.

Для обработки таких событий рассмотрим конструкцию try..except:

try
except
end;

Между try и except пишут какую либо операцию, а между except и end пишут обработку исключительной ситуации.

Рассмотрим пример:

var
test: TStringList;
begin
try
test.Add(‘test’);
except
showmessage(‘Объект не объявлен!’);
end;
end;

По логике, в таком примере обязательно появится ошибка, но окошко не отобразится, а отобразится указанный текст в ShowMessage, или то что мы указали между except и end.

Добавлено: 05 Сентября 2013 12:50:41 Добавил: Андрей Ковальчук Нравится 0

Добавить