17 lines
559 B
ObjectPascal
17 lines
559 B
ObjectPascal
|
// Иллюстрация finally
|
|||
|
|
// Секция finally выполняется независимо от того, произошло исключение или нет
|
|||
|
|
var
|
|||
|
|
x: integer := 0;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
if Random(2) = 0 then
|
|||
|
|
x := 10 div x;
|
|||
|
|
writeln('Выполнение продолжается');
|
|||
|
|
finally
|
|||
|
|
writeln('Сработала секция finally');
|
|||
|
|
end;
|
|||
|
|
// Если возникает исключение, то этот оператор не выполняется
|
|||
|
|
writeln('После секции finally');
|
|||
|
|
end.
|