using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;

namespace TestDelphi
{
    public interface ITest
    {
        
        int add(int x, int y);
        
        string getSysName();
        
        byte ArrAdd(byte x, byte y);

        DateTime GetTime(DateTime dt);
    }
}

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;

namespace TestDelphi
{
    [ClassInterface(ClassInterfaceType.None)]
    public class Test:ITest
    {
        public Test()
        { }
        

        public int add(int x, int y)
        {
            return x + y;
        }
        public DateTime GetTime(DateTime  dt)
        {
            return dt.AddDays(2);
        }
        public string getSysName()
        {
            return "I don't care";
        }
        public byte ArrAdd(byte x, byte y)
        {
            byte[] arr = new byte[2];
            arr[0] = x;
            arr[1] = y;
            return arr[0];
        }
    }
}

procedure TForm1.Button2Click(Sender: TObject);
var obj:ITest; //定义在C#中的接口变量
  arr : byte;
  td:TDateTime;
begin
    obj :=CoTest.Create; //创建实例，默认会在C#的类前面加Co
     td := now; //获取当前时间
     td := obj.GetTime(td); //调用接口的方法
     showmessage(datetimetostr(td)); // 返回的结果是当前时间+2天
     arr :=obj.ArrAdd(12,13);  //返回的是第一个参数
    showmessage(inttostr(obj.add(1,2))); //返回的是1+2的结果
    showmessage(obj.getSysName()); //返回字符串
end;