pascalabcnet/TestSuite/intellisense_tests/tuple2.pas

17 lines
244 B
ObjectPascal
Raw Permalink Normal View History

2017-12-10 13:36:32 +03:00
function f1:(byte,byte);
begin
end;
function f2:(one,two);
begin
end;
begin
var t := f1{@function f1(): (byte,byte);@};
var b{@var b: byte;@} := t.Item1;
var t1 := f2;
2021-11-28 14:36:51 +03:00
var i{@var i;@} := t1.Item1;
var j{@var j;@} := i;
2017-12-10 13:36:32 +03:00
end.