15 lines
334 B
ObjectPascal
15 lines
334 B
ObjectPascal
unit u_generics7;
|
|
|
|
procedure test;
|
|
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;
|
|
begin
|
|
|
|
end. |