pascalabcnet/TestSuite/intellisense_tests/tuple2.pas

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