/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates20.pas
13 строк
301 B
Ivan Bondarev
fix #2878
15 авг 2023, 15:18
15 авг 2023, 15:18
5664851
Код
Авторство
О чём код?
type d1<T> = Action<procedure(a: T)>; procedure p0(d: d1<byte>) := exit; var i: integer; begin var d: d1<string>; //Ошибка: Нельзя преобразовать тип string к byte d := p->p('abc'); d((x: string)->begin assert(x = 'abc'); i := 1 end); assert(i = 1); end.