M> Это некоторый академический код, который демонстрирует возможности C#. Поскольку этих возможностей в Delphi нет, то для реализации именно этого фрагмента кода может понадобиться чуть больше кода, кое-что реализовать руками, либо чуть по другому спроектировать классы, и т. д. Но это не смертельно. Скажем приведенный ниже код делает в результате то же самое

program Project1;

M>{$APPTYPE CONSOLE}

M>uses SysUtils;

M>procedure PrintArray(const Data: array of Integer);
M>var
M>  I: Integer;
M>begin
M>  if Length(Data) > 0 then
M>  begin
M>    I := Low(Data);
M>    repeat
M>      Write(Data[I]);
M>      I := I + 1;
M>      if I > High(Data) then Break;
M>      Write(', ');
M>    until False;  
M>  end;
M>  WriteLn;
M>end;    

M>begin
M>  PrintArray([1, 3, 24, 6, 32, 7]);
M>end.

using System;
using System.Query;

class Person
{
    public string Name;
    public DateTime Birthday;

    public override string ToString()
    {
        return "Имя: " + Name + new string(' ', 20 - Name.Length) 
            + " День рождения: " + Birthday;
    }
}

class Program
{
    static void Main(string[] args)
    {
        var persons = new Person[]
        {
            { Name="Иванов",   Birthday=new DateTime(1971, 3, 18) },
            { Name="Яшин",     Birthday=new DateTime(1973, 2, 12) },
            { Name="Сидоров",  Birthday=new DateTime(1956, 5, 18) },
            { Name="Пертров",  Birthday=new DateTime(1971, 1, 11) },
            { Name="Антовнов", Birthday=new DateTime(1981, 3, 25) },
        };

        var byName     = persons.OrderBy(person => person.Name);
        var byBirthday = persons.OrderBy(person => person.Birthday);

        Console.WriteLine("Список отсортированный по датам:");
        foreach (var person in byBirthday)
            Console.WriteLine(person);
        Console.WriteLine("-------------------------------");
        Console.WriteLine("Список отсортированный по именам:");
        foreach (var person in byName)
            Console.WriteLine(new { person.Birthday, person.Name });
    }
}

Имя: Сидоров; День рождения: 18.05.1956 00:00:00
Имя: Пертров; День рождения: 11.01.1971 00:00:00
Имя: Иванов; День рождения: 18.03.1971 00:00:00
Имя: Яшин; День рождения: 12.02.1973 00:00:00
Имя: Антовнов; День рождения: 25.03.1981 00:00:00
-------------------------------
{Birthday=25.03.1981 00:00:00, Name=Антовнов}
{Birthday=18.03.1971 00:00:00, Name=Иванов}
{Birthday=11.01.1971 00:00:00, Name=Пертров}
{Birthday=18.05.1956 00:00:00, Name=Сидоров}
{Birthday=12.02.1973 00:00:00, Name=Яшин}

WriteLn(Join(ArrayIntToStr([1, 2, 3]), ', '));

WriteLn(IntArrayToStr([1, 2, 3]), ', '));

using System;
using System.Collections.Generic;
using System.Query;

class Program
{
    static void Main()
    {
        Func<int> Next = new Random().Next;
        Func<int, List<int>> Generator = delegate(int count)
        {
            List<int> list = new List<int>();
            for (int i = 0; i < count; i++)
                list.Add(Next() % 200);
            return list;
        };

        Console.WriteLine("Случайные числа больше 100:");

        foreach (var i in Generator(10).Where(x => x > 100))
            Console.Write(i + " ");

        Console.WriteLine();

        Console.WriteLine("Случайные числа меньше 100:");

        foreach (var i in Generator(10).Where(x => x < 100))
            Console.Write(i + " ");

        Console.WriteLine();
    }
}

VD>Кстати, обрати внимание, на то что ты не зная синтаксиса спокойно смог воспринять суть. Вот в этом и есть прелесть декларативности.

>> 31.01.2006 12:54:41 K wrote:
>> да странная конструкция.

>> 31.01.2006 12:55:31 K wrote:
>> токо чего добивался аффтар....
>> крутизны мозга
>> зачем......
>> наверное ему жалко памяти на диске на несколько понятных лишних и читабельных строк кода

VD>Заметь, все в одной функции. Хотя казалось бы в C# нельзя делать всложенных функций.

VD>using System;
VD>using System.Collections.Generic;
VD>using System.Query;

VD>class Program
VD>{
VD>    static void Main()
VD>    {
VD>        Func<int> Next = new Random().Next;
VD>        Func<int, List<int>> Generator = delegate(int count)
VD>        {
VD>            List<int> list = new List<int>();
VD>            for (int i = 0; i < count; i++)
VD>                list.Add(Next() % 200);
VD>            return list;
VD>        };

VD>        Console.WriteLine("Случайные числа больше 100:");

VD>        foreach (var i in Generator(10).Where(x => x > 100))
VD>            Console.Write(i + " ");

VD>        Console.WriteLine();

VD>        Console.WriteLine("Случайные числа меньше 100:");

VD>        foreach (var i in Generator(10).Where(x => x < 100))
VD>            Console.Write(i + " ");

VD>        Console.WriteLine();
VD>    }
VD>}
VD>

from random import randint
from sys import stdout

rprint = lambda gen, op : map(lambda x : stdout.write("%d " %  x), [x for x in gen if op(x)])
generator = lambda n : [randint(0, 199) for x in range(n)]

print "Случайные числа больше 100:"
rprint(generator(10), lambda x : x > 100)

print "\nСлучайные числа меньше 100:"
rprint(generator(10), lambda x : x < 100)
    
print