Клуб программистов

Теперь ближе к делу. В Delphi техника SEН реализуется с помощью блока try…except/finally…end. Общий формат этих блоков такой:

try
<код>
except
<что будет выполнено если будет исключение>
end
либо:
try
<код>
finally
<что будет выполнено в любом случае>
end

В втором случае видно что в цепочку обработчиков SEH будет добавлен пустой обработчик, а в первом случае в цепочку обработчиков будет добавлен указатель на блок except…end. В блоке, который следует после except можно обработать исключение, можно просто вывести сообщение об ошибке, а можно и ничего не делать. При возникновении ошибки в основном блоке управление сразу же передаётся коду, который находится в блоке except. Код, который находится после строки, которая вызвала исключение не выполнится. Если основной код слишком большой, и могут возникать различные ошибки, то можно с помощью блока on…do узнать какое именно исключение произошло. Например:

try
d:=56/0;
x:=round(d);
except
on EInvalidOp do
ShowMessage(’деление на ноль’)
else
ShowMessage(’другая ошибка’);
end;
Можно получить детальную информацию об исключении, объявив в блоке on…do переменную требуемого класса и потом её использовать, например:
try
d:=56/0;
x:=round(d);
except
on Excp : EInvalidOp do
ShowMessage(’ошибка под названием - ‘+Excp.Message)
else
ShowMessage(’Другая ошибка’);
end;
Можно сгенерировать исключение с помощью оператора raise, например:
type
MyClass = class (Exception);
………
begin
//more code
raise MyClass.Create(’любой текст’);

или можно воспользоваться уже существующим классом, например

raise EZeroDivide.Create(’текст’);

Информацию о классах исключений можно получить, набрав в справке Delphi «VCL exception classes» (там конечно не все, но для начала хватит).

Следует подметить, что ошибки можно обработать только в стандартных функциях Delphi, ошибки в API функциях нельзя отловить с помощью блоков try. У API функций есть свой способ узнать об ошибке или генерировать ошибки – это API функции Set/GetLastError.

Вот наверно и всё. Это был rpy3uH , специально для “ Клуб программистов ”.