/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates14.pas
19 строк
247 B
Бондарев Иван
fix
28 июн 2020, 14:49
28 июн 2020, 14:49
6ba1ca8
Код
Авторство
О чём код?
uses System; var i: integer; procedure Test; begin Inc(i); end; type TProc = procedure(i: integer); begin var d: Delegate := ()->Test(); Action(d); assert(i = 1); var d2: Delegate := ()->Test(); Action(d2); assert(i = 2); end.