/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/errors/err0548_delegates25.pas
23 строки
327 B
Mikhalkovich Stanislav
fix #3299
13 июл 2025, 13:13
13 июл 2025, 13:13
4cec1e7
Код
Авторство
О чём код?
var i: integer; procedure p0(p: byte->()); begin p(1); Inc(i); end; type t1 = class static procedure p1<T>(o: T) := exit; procedure p2<T>(o: T) := exit; end; begin // OK p0(t1.p1&<byte>); p0(t1.Create.p2&<byte>); // А эти 2 падают p0(t1.p1); p0(t1.Create.p2); assert(i = 4); end.