C#

Form1.cs<br />
-------------------------------<br />
using System;<br />
using System.Drawing;<br />
using System.Collections;<br />
using System.ComponentModel;<br />
using System.Windows.Forms;<br />
using System.Data;<br />
<br />
namespace SimpleTest<br />
{<br />
 public class Form1 : System.Windows.Forms.Form<br />
 {<br />
  private System.Windows.Forms.MainMenu mainMenu1;<br />
  private System.Windows.Forms.MenuItem menuItem1;<br />
  private System.ComponentModel.Container components = null;<br />
<br />
  public Form1()<br />
  {<br />
   InitializeComponent();<br />
  }<br />
  protected override void Dispose( bool disposing )<br />
  {<br />
   if( disposing )<br />
   {<br />
    if (components != null)<br />
    {<br />
     components.Dispose();<br />
    }<br />
   }<br />
   base.Dispose( disposing );<br />
  }<br />
<br />
  private void InitializeComponent()<br />
  {<br />
   this.mainMenu1 = new System.Windows.Forms.MainMenu();<br />
   this.menuItem1 = new System.Windows.Forms.MenuItem();<br />
   this.mainMenu1.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] {<br />
                       this.menuItem1});<br />
   this.menuItem1.Index = 0;<br />
   this.menuItem1.Text = "New Form";<br />
   this.menuItem1.Click += new System.EventHandler(this.menuItem1_Click);<br />
   this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);<br />
   this.ClientSize = new System.Drawing.Size(292, 273);<br />
   this.IsMdiContainer = true;<br />
   this.Menu = this.mainMenu1;<br />
   this.Name = "Form1";<br />
   this.Text = "Form1";<br />
<br />
  }<br />
<br />
  static void Main()<br />
  {<br />
   Application.Run(new Form1());<br />
  }<br />
<br />
  private void menuItem1_Click(object sender, System.EventArgs e)<br />
  {<br />
   Form2 childForm;<br />
<br />
   childForm = new Form2();<br />
   childForm.MdiParent = this;<br />
   childForm.Show();<br />
<br />
  }<br />
 }<br />
}<br />
<br />
<br />
Form2.cs<br />
--------------------------------<br />
using System;<br />
using System.Drawing;<br />
using System.Collections;<br />
using System.ComponentModel;<br />
using System.Windows.Forms;<br />
<br />
namespace SimpleTest<br />
{<br />
 public class Form2 : System.Windows.Forms.Form<br />
 {<br />
  private System.Windows.Forms.GroupBox groupBox1;<br />
  private System.Windows.Forms.Button button1;<br />
  private System.ComponentModel.Container components = null;<br />
<br />
  public Form2()<br />
  {<br />
   InitializeComponent();<br />
  }<br />
<br />
  protected override void Dispose( bool disposing )<br />
  {<br />
   if( disposing )<br />
   {<br />
    if(components != null)<br />
    {<br />
     components.Dispose();<br />
    }<br />
   }<br />
   base.Dispose( disposing );<br />
  }<br />
<br />
  private void InitializeComponent()<br />
  {<br />
   this.groupBox1 = new System.Windows.Forms.GroupBox();<br />
   this.button1 = new System.Windows.Forms.Button();<br />
   this.groupBox1.SuspendLayout();<br />
   this.SuspendLayout();<br />
<br />
   this.groupBox1.Controls.AddRange(new System.Windows.Forms.Control[] {<br />
                     this.button1});<br />
   this.groupBox1.Location = new System.Drawing.Point(64, 64);<br />
   this.groupBox1.Name = "groupBox1";<br />
   this.groupBox1.Size = new System.Drawing.Size(192, 128);<br />
   this.groupBox1.TabIndex = 0;<br />
   this.groupBox1.TabStop = false;<br />
   this.groupBox1.Text = "groupBox1";<br />
<br />
   this.button1.Location = new System.Drawing.Point(40, 40);<br />
   this.button1.Name = "button1";<br />
   this.button1.Size = new System.Drawing.Size(80, 40);<br />
   this.button1.TabIndex = 0;<br />
   this.button1.Text = "button1";<br />
<br />
   this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);<br />
   this.ClientSize = new System.Drawing.Size(292, 273);<br />
   this.ControlBox = false;<br />
   this.Controls.AddRange(new System.Windows.Forms.Control[] {<br />
                    this.groupBox1});<br />
   this.MaximizeBox = false;<br />
   this.MinimizeBox = false;<br />
   this.Name = "Form2";<br />
   this.WindowState = System.Windows.Forms.FormWindowState.Maximized;<br />
   this.Resize += new System.EventHandler(this.Form2_Resize);<br />
   this.groupBox1.ResumeLayout(false);<br />
   this.ResumeLayout(false);<br />
<br />
  }<br />
<br />
  private void Form2_Resize(object sender, System.EventArgs e)<br />
  {<br />
   this.MaximizeBox = false;<br />
   this.WindowState = FormWindowState.Maximized;<br />
  }<br />
 }<br />
}<br />
<br />
-------------------------------

<br />
...<br />
type<br />
  TDLLIn = record<br />
   ....<br />
    Typekey: shortstring;<br />
  end;<br />
<br />
<br />
  function Init(dllIn: TDLLIn): integer;<br />
  begin<br />
  ....<br />
  end;<br />

<br />
public struct TDLLIn<br />
{<br />
    ....<br />
    <big>[MarshalAs(UnmanagedType.AnsiBStr)]</big><br />
    public string Typekey;<br />
}<br />
<br />
public class Wrapper<br />
{<br />
   ....<br />
    [DllImport("DelphiDLL.dll", CallingConvention=CallingConvention.StdCall, EntryPoint="Init")]<br />
    static extern int Init(TDLLIn dllIn);<br />
}<br />

ArrayList al = new ArrayList();
al.Add("Nick");
al.Add("Megan");

for(int i = 0; i < al.Count; i++)
     Response.Write(al.Item[i].ToString());

<br />
forum.aspx.cs(54,20): error CS0117: 'System.Collections.ArrayList' does not<br />
        contain a definition for 'Item'<br />