function Range(const Start, Stop, Step: integer): Enumerable<integer>; begin result := YieldingEnumerble<integer>.Create( procedure(const Yield: YieldProc<integer>) var i: integer; begin i := Start; while (i < Stop) do begin Yield(i); i := i + Step; end; end ); end;
Title | Name | Language | UNIX | When |
---|---|---|---|---|
Re: Yielding range enumerating | Asbjørn | delphi | 1456785838 | 8 Years ago. |