/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/interface6.pas
20 строк
315 B
Ivan Bondarev
#2659
08 май 2022, 14:45
08 май 2022, 14:45
47cc526
Код
Авторство
О чём код?
type i1 = interface function GetHashCode(x: byte): byte; end; t1 = class(i1) public function GetHashCode(x: byte) := x; end; procedure p1<T>(o: T); where T: I1; begin assert(o.GetHashCode(5) = 5); assert(o.GetHashCode() = o.GetHashCode()); end; begin p1&<I1>(new t1); end.