/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_capture_compiled_props.pas
23 строки
339 B
Бондарев Иван
fix #2310
22 сен 2020, 22:52
22 сен 2020, 22:52
e3febac
Код
Авторство
О чём код?
{$reference PresentationFramework.dll} {$apptype windows} var i: integer; type t1 = class(System.Windows.Window) procedure p1; begin var p := procedure-> begin Dispatcher.Invoke(()->begin Inc(i) end); end; p; end; end; begin var o := new t1; o.p1; assert(i = 1); end.