/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/interface4.pas
30 строк
616 B
Бондарев Иван
bug fix #540
01 ноя 2017, 18:51
01 ноя 2017, 18:51
6e175c6
Код
Авторство
О чём код?
type IEnr = System.Collections.IEnumerator; IEnb = System.Collections.IEnumerable; var a : integer; type My = class(IEnumerable<integer>) public function IEnb.GetEnumerator(): IEnr; begin a := 1; end; function System.Collections.Generic.IEnumerable<integer>.GetEnumerator(): IEnumerator<integer>; begin a := 2; end; end; begin var ien: IEnb := new My; ien.GetEnumerator; assert(a=1); var ien2: IEnumerable<integer> := new My; ien2.GetEnumerator; assert(a=2); a := 0; //var mc := new My; //mc.GetEnumerator(); //assert(a=2); end.