/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/yield7.pas
28 строк
664 B
Ivan Bondarev
#2896
02 июл 2023, 13:27
02 июл 2023, 13:27
0d85e87
Код
Авторство
О чём код?
type // Обязательно шаблон //Ошибка: Данная конструкция не поддерживается текущей версией компилятора t1<T> = sealed class // Обязательно static static procedure p1 := exit; function f1: sequence of byte; begin // Если расскомментировать - не воспроизводится // t1&<T>. p1; // Обязательно yield yield 1; end; end; begin var t := new t1<integer>; var j := 0; foreach var i in t.f1 do begin j := i; end; assert(j = 1); end.