/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_OnExcept.pas
37 строк
466 B
Mikhalkovich Stanislav
fix #1814
29 июн 2019, 19:28
29 июн 2019, 19:28
bf2a770
Код
Авторство
О чём код?
type MyException = class(Exception) end; procedure p1; begin var i := 8; var p: procedure := ()-> begin i := 3; end; try raise new MyException; except on e: Exception do begin var q: procedure := ()-> begin Print(e); end; //q; end; on e: MyException do begin var q: procedure := ()-> begin Print(e); end; //q; end; end; end; begin p1; end.