/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/units/u_explicitinterface.pas
31 строка
559 B
Бондарев Иван
bug fix #406
25 май 2017, 11:37
25 май 2017, 11:37
819c41c
Код
Авторство
О чём код?
unit u_explicitinterface; 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 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.