/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/generics41.pas
16 строк
283 B
Ivan Bondarev
bug fix #2364
20 дек 2020, 20:15
20 дек 2020, 20:15
16d1f07
Код
Авторство
О чём код?
function p1<T>(a, b: T): integer; where T: System.IComparable<T>; begin Result := a.CompareTo(b); end; function p2<T>(a, b: T): integer; where T: record, System.IComparable<T>; begin Result := a.CompareTo(b); end; begin assert(p1(2,1) = 1); assert(p2(2,1) = 1); end.