/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/exceptions2.pas
16 строк
388 B
Бондарев Иван
bug fix #402
23 май 2017, 21:36
23 май 2017, 21:36
2b0dc0b
Код
Авторство
О чём код?
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.