/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates10.pas
23 строки
291 B
Бондарев Иван
fix #1229
02 окт 2018, 23:11
02 окт 2018, 23:11
62b2a4a
Код
Авторство
О чём код?
var i: integer; function f1: procedure; begin Inc(i); Result := procedure ()->exit; end; procedure test(p: procedure); begin p(); end; begin var p: procedure; p := f1(); p(); assert(i = 1); test(f1); assert(i = 2); p := f1 <> nil ? f1 : nil; assert(i = 4); end.