/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/interface2.pas
23 строки
435 B
Бондарев Иван
bug fix issue #113
13 мар 2016, 15:32
13 мар 2016, 15:32
893e4d9
Код
Авторство
О чём код?
type TClass<T> = class(IEnumerable<T>) public function GetEnumerator: IEnumerator<T>; begin end; public function System.Collections.IEnumerable.GetEnumerator: System.Collections.IEnumerator; begin end; end; begin var i := 1; var seq1 := i.Iterate(x->x+1); var lst := new List<integer>; foreach var j in seq1 do begin lst += j; if j > 10 then break; end; assert(lst[5] = 6); end.