/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates15.pas
13 строк
262 B
Бондарев Иван
fix #1512
23 авг 2020, 14:57
23 авг 2020, 14:57
acaabbb
Код
Авторство
О чём код?
function f1(b: byte) := b; function f2 := 2; type fnc = function(b: byte): byte; begin var o1: object := f1; var f: fnc := fnc(o1); assert(f(2) = 2); var o2: object := f2; assert(integer(o2) = 2); o1 := f1; f := fnc(o1); assert(f(2) = 2); end.