pascalabcnet/TestSuite/foreach_index1.pas

18 lines
336 B
ObjectPascal
Raw Permalink Normal View History

2022-03-08 21:41:46 +03:00
begin
var l := new List<integer>;
foreach var x in Arr(1,3,5) index i do
2023-11-07 14:58:14 +03:00
begin
2022-03-08 21:41:46 +03:00
l.Add(x);
l.Add(i);
2023-11-07 14:58:14 +03:00
end;
2022-03-08 21:41:46 +03:00
Assert(l.SequenceEqual(Arr(1,0,3,1,5,2)));
2023-11-07 14:58:14 +03:00
l.Clear;
//TODO #2852
// foreach var x in 1..3 index i do
// begin
// l.Add(x);
// l.Add(i);
// end;
// Assert(l.SequenceEqual(Arr(1,0,2,1,3,2)));
2022-03-08 21:41:46 +03:00
end.