pascalabcnet/Yield/tests/template/yieldSimpleTemplate.pas

16 lines
190 B
ObjectPascal
Raw Permalink Normal View History

2016-05-19 02:14:06 +03:00
type A<T> = class
testField: T;
function Gen: sequence of T;
begin
yield testField;
end;
end;
begin
var q := new A<integer>();
2016-05-19 14:40:49 +03:00
q.testField := 777;
2016-05-19 02:14:06 +03:00
q.Gen.Println;
end.