pascalabcnet/TestSuite/CompilationSamples/yieldArr2Dim.pas

10 lines
129 B
ObjectPascal

function RowSequence(bfbf: array [,] of integer): sequence of integer;
begin
var t := bfbf[0,0];
yield t;
end;
begin
end.