/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface.pas
48 строк
865 B
Бондарев Иван
bug fix #2059
18 авг 2019, 12:16
18 авг 2019, 12:16
fbf8516
Код
Авторство
О чём код?
type IEnr = System.Collections.IEnumerator; IEnb = System.Collections.IEnumerable; TRec = record a: integer; end; 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; My2 = class(IEnumerable<TRec>) public function IEnb.GetEnumerator(): IEnr; begin a := 1; end; function GetEnumerator(): IEnumerator<TRec>; 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); var ien3: IEnumerable<TRec> := new My2; a := 0; ien3.GetEnumerator(); assert(a=2); end.