/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates11.pas
19 строк
231 B
Бондарев Иван
bug fix #1211
03 окт 2018, 13:39
03 окт 2018, 13:39
932600b
Код
Авторство
О чём код?
var i: integer; procedure p; begin i := 1; end; type I1 = interface function f1: Action0; end; t1 = class(I1) public function f1: Action0 := p; end; begin var t := new t1; t.f1()(); assert(i = 1); end.