/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface12.pas
26 строк
654 B
Ivan Bondarev
#2469
11 апр 2021, 12:54
11 апр 2021, 12:54
1b611fd
Код
Авторство
О чём код?
type t1<T> = class(System.Collections.Generic.IEnumerator<T>) public property IEnumerator<T>.Current: T read T(object(2)); public property System.Collections.IEnumerator.Current: object read 3; public function System.Collections.IEnumerator.MoveNext: boolean; begin end; public procedure System.Collections.IEnumerator.Reset; begin end; public procedure System.IDisposable.Dispose; begin end; end; begin var obj := new t1<integer>; assert((obj as IEnumerator<integer>).Current = 2); assert(integer((obj as System.Collections.IEnumerator).Current) = 3); end.