pascalabcnet/TestSuite/intellisense_tests/generics5.pas

11 lines
226 B
ObjectPascal
Raw Permalink Normal View History

2018-04-12 21:41:19 +03:00
function f1<T>(self: sequence of T): (sequence of byte, sequence of word);
begin
Result := (
Seq(byte(0)),
Seq(word(0))
);
end;
begin
var a{@var a: (IEnumerable<byte>,IEnumerable<word>);@} := f1(Seq(0));
end.