/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates13.pas
40 строк
505 B
Бондарев Иван
bug fix #2158
22 дек 2019, 16:58
22 дек 2019, 16:58
aefc784
Код
Авторство
О чём код?
var i: integer; type t0 = abstract class procedure p0; abstract; procedure p2; virtual; begin end; procedure p3; begin i := 3; end; end; t1 = class(t0) procedure p0; override; begin i := 1; end; procedure p2; override; begin i := 2; end; end; procedure p1(p: Action0); begin p(); end; begin var a := new t1 as t0; p1(a.p0); assert(i = 1); p1(a.p2); assert(i = 2); p1(a.p3); assert(i = 3); end.