/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_closure_class_fields_6.pas
19 строк
247 B
miks1965
bug fix #1080
12 окт 2018, 07:15
12 окт 2018, 07:15
e361705
Код
Авторство
О чём код?
procedure Invoke(p: procedure); begin end; type WH = class Width,Height: real; end; C = class gr: WH; end; B = class(C) property Width: real write Invoke(procedure->begin gr.Width := value end); end; begin Assert(1=1) end.