RubyManiaConsoleProject - Demo to show the Ruby Integer times method in Delphi and C#

RubyManiaConsoleProject.cs

using System;
					
public static class IntExtensions
{
    public static void Times(this int i, Action<int> func)
    {
        for(int j = 0; j < i; j++)
        {
            func(j);
        }
    }
}

public class Program
{
	public static void Main()
	{
		5.Times(i => Console.Write("{0} ", i));
	}
}

RubyManiaConsoleProject.dpr

program RubyManiaConsoleProject;

uses
  System.SysUtils;

type
  TRubyMania = record helper for ShortInt
    procedure times(const IterBody: TProc<Integer>);
  end;

procedure TRubyMania.times(const IterBody: TProc<Integer>);
var
  i: Integer;
begin
  for i := 0 to Self-1 do
    IterBody(i);
end;

begin
  5.times(
    procedure(i: Integer)
    begin
      Write(i, ' ');
    end
  );
end.