/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface8.pas
23 строки
509 B
Ivan Bondarev
#746
08 янв 2021, 14:52
08 янв 2021, 14:52
969d463
Код
Авторство
О чём код?
uses System; var i: integer; type C1<T>=class(IComparable<T>)//Класс C1<T> не реализует метод p1 интерфейса I1<T> public function IComparable<T>.CompareTo(item: T): integer; begin Result := 1; end; public function CompareTo(item: T): integer; begin Result := -1; end; end; begin var ii: IComparable<integer> := new C1<integer>; var o := new C1<integer>; assert(ii.CompareTo(1) = 1); assert(o.CompareTo(1) = -1); end.