pascalabcnet/TestSuite/intellisense_tests/extensionmethods7.pas
Бондарев Иван ede5f339f9 fix #757
fix #983
2018-08-09 14:14:35 +02:00

8 lines
272 B
ObjectPascal

function f1<T>(self:sequence of T); extensionmethod := self;
begin
var seq1 := Seq(0)
.f1&<integer>.Distinct{@(расширение sequence of T) function Distinct<integer>(): sequence of integer;@};
;
seq1{@var seq1: sequence of integer;@}.ToString();
end.