/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/operator_implicit_T.pas
17 строк
283 B
Ivan Bondarev
#1981
06 янв 2021, 22:47
06 янв 2021, 22:47
22f46b4
Код
Авторство
О чём код?
type t1<T> = class static function operator implicit(o: T): t1<T>; begin Assert(2=1); Result := nil; end; end; t2<T> = class(t1<T>) end; var i: integer; procedure p<T>(r: t1<T>); begin r := new t2<T>; i := 1; end; begin p(new t1<integer>); assert(i = 1); end.