using System;
using System.Collections.Generic;
using System.Collections;
using System.Linq;
using System.Text;

namespace ConsoleApplication1
{
    public class TestObject
    {
        private const int ByteSize = 50;
        protected byte[] TestArray;
        public TestObject()
        {
            TestArray = new byte[ByteSize];
        }
    }

    class Program
    {
        private const int ObjectCount = 1000000;
        static void Main(string[] args)
        {
            DateTime Start = DateTime.Now;
            ArrayList Objects = new ArrayList();
            while (Objects.Count < ObjectCount)
            {
                Objects.Add(new TestObject());
            }
            DateTime Stop = DateTime.Now;
            TimeSpan Duration = Stop - Start;
            int Speed = Objects.Count % (int) Duration.TotalMilliseconds; 
            Console.WriteLine("C# Speed {0}", Speed);
        }
    }
}

program MemSpeedTest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Contnrs,
  DateUtils;

const
  ArraySize=50;
  ObjectCount=1000000;

type
  TTestObject=class(TObject)
  private
    FTestArray:array of byte;
  public
    constructor Create;
  end;

{ TTestObject }

constructor TTestObject.Create;
begin
  inherited Create;
  SetLength(FTestArray, ArraySize);
end;

var
  Objects:TObjectList;
  Start, Stop:TDateTime;
  Speed:Integer;
begin
  Start:=Now;
  Objects:=TObjectList.Create(TRUE);
  try
    while Objects.Count<ObjectCount do
      Objects.Add(TTestObject.Create);
    Stop:=Now;
    Speed:=Objects.Count div MillisecondsBetween(Stop, Start);
    WriteLn('Delphi speed ', Speed:6);
  finally
    FreeAndNil(Objects);
  end;
end.

private void button1_Click(object sender, EventArgs e)
        {
            
           
           
            string[] row0 = { "", "29", "Революция babes 9", 
            "Beatles", "The Beatles [White Album]", "Fkm,jv Альбом", "Певец" };
            dateTimePicker1.Value = DateTime.Now;
            for (int i = 1; i <= 600000; i++)
            {
                row0[0] = Convert.ToString(i);
                this.dataGridView1.Rows.Add(row0);
            }
            dateTimePicker2.Value = DateTime.Now;
        }

procedure TSDIAppForm.Button1Click(Sender: TObject);
var
  s: TStringList;
  I,J,K: Integer;
  tm : TDateTime;
begin


    s := TStringList.Create;

    s.Add('1');
    s.Add('ghjikj');
    s.Add('прошло');
    s.Add('три');
    s.Add('года');
    s.Add('ывафыва');
    s.Add('бздын');
    StringGrid1.RowCount := 600000;
    StringGrid1.ColCount := 7;
     DateTimePicker1.DateTime :=  Time();
    with StringGrid1 do
      for J:= 0 to RowCount - 1 do
        begin
          s[0] := IntToStr(J);
          Rows[J].AddStrings(s);
        end;
     DateTimePicker2.DateTime :=  Time();
end;

foreach (var addr in Dns.GetHostAddresses("rsdn.ru"))
    Console.WriteLine(addr);

194.154.75.214

Colon Operator

This is essential to our nullable support, but it is also a surprisingly useful feature for general coding. Basically, instead of using "." to access members and get an NullReferenceException if they are nil, use ":" and the call will be skipped for nil (and the result will be nil itself). For example:

IDisposable(SomeObject):Dispose; // only call dispose if the interface is implemented
x := Button:Parent:Parent:Parent // access the 3rd parent of a control, where any level might be nil.

Inline Property Accessors

Define simple properties within the class declaration, without any extra setter/getters.

property Foo: String; // local field is implied;
property Right: Int32 read Left+Width; // reader expression is provided in line

"implies" operator

This is mostly helpful for invariants or pre/post-conditions. Basically, the second part only "needs" to be true if the first is; if the first is false, the entire expression is true. this sounds odd, but consider
require

assigned(Customer) implies Customer.CreditRatio > 5;
this translates too
require
(NOT assigned(Customer)) OR (Customer.CreditRatio > 5);
the above is much more readable.

"case type of"

Write a switch/case statement that executes different cases depending on the TYPE of a certain object, i.e.
case type MyControl of:
Edit: // do something
Button: // do something else
end;

Property Notifications

These save a lot of boilerplate code. Attach the "notify" keyword to a property as directive (like "virtual"), and the compiler generates all the infrastructure and interfaces needed for property notifications to work (in C#, you'll need to implement getters/setters, add interfaces to the class, etc).
[q]

wow!

improved 'for each' loop
for each matching x: Button in Controls do // only run loop for buttons
// use i to count; also type of x is inferred automatically from type of "Controls", if its a generic enum
for each x in Controls index i do

'locked' directive
The locked directive allows methods, events and properties to be declared implicitly thread safe.

Extended Constructor Calls

Set properties as part of the constructor call. This is especially useful if you're not assigning to a local ref. For example:
Controls.Add(new Button(Width := 100; Height := 50));
without this, you; would need a temp var for the button.

Boolean Double Comparison
if 0 <= x < Count then //...

Iteration delegation
The yield keyword supports delegation of the iterator to a second sequence.

Empty Methods
Supply the 'empty' directive on a method's interface declaration and you dont need to define the empty method body.

Exception Filters
Catch selective exceptions not only based on type, but also based on any arbitrary condition (supported by VB.NET but not C#).

raising/firing events
You can specify the visibility for raising/firing events. in C#, only the class that defines an event can fire it (from outside you can only add/remove handlers). in Delphi Prism, you can write the following and descendants can fire the event:
public
event Foo:EventHandler protected raise;

if (0 <= x && x < Count)

• IDE
  
• VCL vs FCL
  
• дельфийские доки vs MSDN
  
• Community
  
• Репутация у платформы

НС>foreach (var addr in Dns.GetHostAddresses("rsdn.ru"))
НС>    Console.WriteLine(addr);
НС>

НС>194.154.75.214
НС>

#region Список найденных IP адресов
            IPHostEntry m_Entry = Dns.GetHostEntry(Dns.GetHostName());
            foreach (IPAddress m_Addr in m_Entry.AddressList)
            {
                m_LocalIP.Items.Add(m_Addr.ToString());
                if (m_Addr.ToString() == LocalIP)
                    m_ipindex = m_LocalIP.Items.Count - 1;
            }
            
            if (m_LocalIP.Items.Count > 0)
                m_LocalIP.SelectedIndex = m_ipindex % m_LocalIP.Items.Count;
#endregion

U>
U>            int Speed = Objects.Count % (int) Duration.TotalMilliseconds; 
U>