/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/foreach_Grouping.pas
17 строк
313 B
miks1965
bug fix #539
02 ноя 2017, 12:21
02 ноя 2017, 12:21
f386c9a
Код
Авторство
О чём код?
type ������ = record ���: string; �����: integer; end; begin var p: ������; p.��� := 'dfh'; var pupils: array of ������ := Arr(p,p,p); var question := pupils.GroupBy(p->p.�����); foreach var group in question do begin foreach var pp: ������ in group do Println(pp); end; end.