/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_closure_class_fields_7.pas
21 строка
349 B
Terky
fix #1968
12 июн 2019, 16:29
12 июн 2019, 16:29
46b5f21
Код
Авторство
О чём код?
type t0 = class public static a1: byte := 2; public static function f1: integer; begin Result := 1 end; end; t1 = class(t0) private procedure p1; begin var a2: word := 3; var pp1: ()->integer := ()->a1+a2+f1; Assert(pp1=6); end; end; begin t1.Create.p1 end.