pascalabcnet/TestSuite/foreach_arr_seq.pas

8 lines
163 B
ObjectPascal
Raw Permalink Normal View History

2018-12-17 20:03:13 +03:00
begin
var a: array of sequence of byte;
SetLength(a,1);
a[0] := Seq(byte(1),byte(2));
foreach var b in a do
Assert(b.GetType.Name='Byte[]');
end.