/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/EachCountOverloading.pas
41 строка
1 KB
Mikhalkovich Stanislav
Улучшение перегрузки: EachCountOverloading.pas
04 июл 2021, 12:23
04 июл 2021, 12:23
392a541
Код
Авторство
О чём код?
function EachCountMy<T>(Self: T): integer; extensionmethod; begin Result := 3 end; function EachCountMy<T,T1>(Self: sequence of System.Linq.IGrouping<T,T1>): integer; extensionmethod; begin Result := 2 end; function EachCountMy<T>(Self: sequence of T): integer; extensionmethod; begin Result := 1 end; function EachCountMy<T>(Self: sequence of List<T>): integer; extensionmethod; begin Result := 4 end; function EachCountMy<T,TXT1>(Self: Dictionary<T,TXT1>): integer; extensionmethod; begin Result := 7 end; function EachCountMy<T,TXT1>(Self: Dictionary<T,List<TXT1>>): integer; extensionmethod; begin Result := 8 end; begin var s := 'aa bbb aa c f f ddd e e f '; Assert(Lst(Lst(1),Lst(2)).EachCountMy = 4); // 4 Assert(s.ToWords.GroupBy(x->x).EachCountMy = 2); // 2 Assert(s.ToWords.EachCountMy = 1); // 1 Assert(Dict(KV(1,2)).EachCountMy = 7); // 7 Assert(Dict(KV(1,Lst(1,2))).EachCountMy = 8); // 8 Assert(1.EachCountMy = 3); // 3 Assert(byte(1).EachCountMy = 3); // 3 end.