/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_closure_class_fields_8.pas
16 строк
274 B
Terky
fix #1993
13 июн 2019, 23:43
13 июн 2019, 23:43
76f5a62
Код
Авторство
О чём код?
type t0<t> = class public static a1: byte := 2; end; t1 = class(t0<integer>) private procedure p1; begin var a2: word := 3; var pp1: ()->integer := ()-> a1 + a2; Assert(pp1=5); end; end; begin t1.Create.p1 end.