pascalabcnet/TestSuite/generics45.pas

9 lines
287 B
ObjectPascal
Raw Permalink Normal View History

2021-01-10 20:21:39 +03:00
begin
var s: sequence of integer := Arr(3,2,1).AsEnumerable();
var e: IEnumerator<integer> := s.OrderBy(b->b).GetEnumerator;
e.MoveNext();
assert(e.Current = 1);
var e2: IEnumerator<integer> := s.OrderBy(b->b).GetEnumerator();
e2.MoveNext();
assert(e2.Current = 1);
end.