/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates8.pas
15 строк
190 B
Бондарев Иван
bug fix #348
19 фев 2017, 14:27
19 фев 2017, 14:27
a59f622
Код
Авторство
О чём код?
var x: integer; procedure pp; begin x := 1; end; type proc = procedure; begin var p: procedure; var o: object := p; o := pp; p := proc(o); p; assert(x = 1); end.