/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates18.pas
20 строк
258 B
Ivan Bondarev
#2368
24 янв 2021, 15:48
24 янв 2021, 15:48
3743c07
Код
Авторство
О чём код?
var i: integer; procedure p(x: Object); begin i := 1; end; procedure p(x: procedure); begin i := 2; end; procedure x := exit; procedure xx(a: integer) := exit; begin var proc: procedure := x; p(x); assert(i = 2); p(xx); assert(i = 1); end.