18 lines
409 B
ObjectPascal
18 lines
409 B
ObjectPascal
|
unit u_exceptions2;
|
||
|
|
|
||
|
|
type
|
||
|
|
MyException1 = class(Exception);
|
||
|
|
MyException2 = class(Exception);
|
||
|
|
IncorrectInputException = class(Exception);
|
||
|
|
|
||
|
|
begin
|
||
|
|
var s := '';
|
||
|
|
try
|
||
|
|
raise new MyException1('EXCEPTION2!!');
|
||
|
|
except
|
||
|
|
on e: IncorrectInputException do writeln(e.Message);
|
||
|
|
on e: MyException1 do s := e.Message;
|
||
|
|
on e: MyException2 do writeln(e.Message);
|
||
|
|
end;
|
||
|
|
assert(s = 'EXCEPTION2!!');
|
||
|
|
end.
|