/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/yield4.pas
16 строк
244 B
Бондарев Иван
bug fix #778
19 апр 2018, 21:11
19 апр 2018, 21:11
3e1d264
Код
Авторство
О чём код?
type t1 = class; t1 = class function f1: sequence of byte; begin yield 0;//обязательно yield yield 1; end; end; begin var o1:t1 := new t1; var arr := o1.f1.ToArray; assert(arr[1] = 1); end.