多个接口出现同名函数的处理，C#，Delphi

如果一个类调用多个接口，且多个接口中有同名的函数，我们知道，如果类要继承一个接口，就必须要实现接口中的所有函数，怎么办？

C#的处理原则是：

在类中要分别实现每个接口及其函数，函数名前要加上接口的名称（前面的访问修饰符不用加，因为都是public).在调用此类中函数时，要把类别成对应的接口再调用接口对应的函数。

如下代码图：

1.两个接口

 public interface inter1
    {
        void setname(string sname);
        string getname();
    }
    public interface inter2
    {
        void setname(string sname);
        string getname();
    }

2.创建类并实现以上两个接口

 public class Myclass : Object, inter1, inter2
    {
        private string name="";

          void inter1.setname(string sname)
        {
            MessageBox.Show("Set inter1 name");
            name = sname;
        }

          void inter2.setname(string sname)
          {
              MessageBox.Show("Set inter2 name");
              name = sname;
          }

         string inter1.getname()
        {
            MessageBox.Show("Get inter1 name");
            return name;
        }

         string inter2.getname()
        {
            MessageBox.Show("Get inter2 name");
            return name;
        }
        
    }

3.调用以上类的相关函数

 private void button1_Click(object sender, EventArgs e)
        {
            Myclass myclass=new Myclass();
            inter1 i1 = (inter1)myclass;//强制类型转换
            i1.setname("vvv");

            inter2 i2 = (inter2)myclass;//强制类型转换
            i2.getname();
            
        }

Delphi的处理原则是：

给同名的函数分别设置别名，再分别实现以别名为名句的函数，以后类在调用时就是别名即可。

代码如下：

1.声明接口

type
  IInter1=interface
    ['{769D95CA-90CE-41BA-A195-A6F43A30A3FC}']
    function getname:string;
    procedure setname(sname:string);
  end;
  IInter2=interface
    ['{1CE978B4-F7AC-44B1-9EAD-5B8CCE1510A1}']
    function getname:string;
    procedure setname(sname:string);
  end;

2.创建类

声明部分

type
   TMyClass=class(TInterfacedobject,IInter1,IInter2)
   private
     FName:string;
   public
     { DONE : 设定别名 }
     function IInter1.getName=Inter1_getname;
     function IInter2.getName=Inter2_getname;
     procedure IInter1.setname=Inter1_setname;
     procedure IInter2.setname=Inter2_setname;
    { DONE : 重新命名 }
     function  Inter1_getname:string;
     function  Inter2_getname:string;
     procedure Inter1_setname(sname:string);
     procedure Inter2_setname(sname:string);
    { DONE : 析构 }
    destructor destroy;override;
  end;

实现部分

{ TMyClass }

destructor TMyClass.destroy;
begin
  MessageDlg('exit object',mtinformation,[mbok],0);
  inherited;
end;



function TMyClass.Inter1_getname: string;
begin
  MessageDlg('get inter1 name',mtinformation,[mbok],0);
  Result:=FName;
end;

procedure TMyClass.Inter1_setname(sname: string);
begin
   MessageDlg('set inter1 name',mtinformation,[mbok],0);
   FName:=sname;
end;

function TMyClass.Inter2_getname: string;
begin
  MessageDlg('get inter2 name',mtinformation,[mbok],0);
  Result:=FName;
end;

procedure TMyClass.Inter2_setname(sname: string);
begin
  MessageDlg('set inter2 name',mtinformation,[mbok],0);
  FName:=sname;
end;

3.调用以上类中的函数：

procedure TForm1.Button1Click(Sender: TObject);
begin
    myclass:=TMyClass.Create;
  try
    myclass.Inter1_setname('88');
    ShowMessage(myclass.Inter2_getname);
  finally
    myclass.Free;
  end;
end;