pascalabcnet/TestSuite/intellisense_tests/tuple2.pas
Бондарев Иван caa940f0c9 bug fix #606
2017-12-10 11:36:32 +01:00

16 lines
214 B
ObjectPascal

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;
var i{@@} := t1.Item1;
end.