Interface接口.

什么是接口:

只声明方法,而不实现方法.

接口与类很相似.

 接口只能在程序或单元的最外层声明,而不能再过程或函数中声明.

type interfaceName = interface (ancestorInterface)

 ['{GUID}']  //接口标识

 memberList  //方法列表

end;

对于memberlist 我们需要注意

1.memberList只包括方法和属性，字段在接口中是不允许的；

2.因为接口没有字段，所以属性的读（read）和写（write）限定符必须是方法；

3.接口的所有成员都是公有的（public） ，不允许使用可见性限定符和存储限定符（但一个数组属性能被声明为 default） ；

4.接口没有构造函数和析构函数，它们不能被（直接）实例化，除非使用实现了它们（的方法）的类； 

5.方法不能被声明为 virtual、dynamic、abstract或 override。因为接口自己不实现它们的方法，这些声明没有意义.

接口调用约定(Calling conventions for interfaces):

 在接口中虽然不能使用”方法绑定”,但是可以使用调用约定.

默认的调用约定是register ,如果你的程序或程序模块需要共享例程时,可以使用stdcall 调用约定.也可以根据实际情况调用其他的约定.

接口属性(Interface properties):

接口声明的属性只能通过接口类型的表达式进行访问，类类型的变量不行；

并且，接口的属性只在接口被编译的程序中是可见的。

Forward declarations（Forward(前瞻性) 声明）

若声明一个接口时以 interface 关键字和一个分号结束，没有指定它的祖先、GUID 以及成员列表，这是一个 forward 声明。

Forward 声明的接口必须在同一个声明区域进行定义声明，换句话说，在 forward 声明和它的定义声明之间除了类型声明外，不能有任何其它内容。.

相互继承（派生）的接口是不允许的.

 
   implements 指示字允许你在"实现类"中委托一个属性来实现接口.
    property MyInterface: IMyInterface read FMyInterface implements IMyInterface;  
   implements 指示字必须是最后一项，它可以实现多个接口，接口之间以逗号分隔。
------------------------
 委托的属性要满足以下条件：
   •  必须是类或接口类型 {也就是说:实现接口属性分2种,一种是使用类类型实现接口,一种是使用接口类型实现接口}； 
   •  不能是数组属性，也不能使用 index限定符； 
   •  必须有一个读限定符(Read 通常都是类或者接口的变量)。若属性使用 read方法，则方法必须使用默认的 register 调用约定，并且不能
  是动态方法（但可以是虚方法） ，也不能使用 message 指示字。
 注:最后都是用来实现接口的.
-------------------------
Delegating to an interface-type property（委托一个接口类型的属性）
    如果委托的属性是接口类型，那么此接口（或者它的派生接口）必须出现在类声明中的祖先列表中（也就是声明实现这些接口） 。

 1type IMyInTerFace = interface(Iinterface)            // 接口类型
 2
 3    procedure P1;
 4    procedure p2;
 5  end;
 6type TmpInTerFace = class(TInterfacedObject, IMyInTerFace)   //实现接口的类
 7    constructor create;
 8    procedure P1;
 9    procedure p2;
10  end;
11type TImplements = class(TInterfacedObject, IMyInTerFace)   //委托属性的类
12 protected
13    FMInTerFace: IMyInTerFace;
14    property MyInTerFace: IMyInTerFace read FMInTerFace implements IMyInTerFace;
15  end;
16
17procedure TmpInTerFace.P1;
18begin
19  ShowMessage('P1');
20end;
21
22procedure TmpInTerFace.p2;
23begin
24  ShowMessage('P2');
25end;
26
27
28var
29  TImp:TImplements; //实现委托属性类
30  InTet:IMyInTerFace; //接口 {接口没有构造函数和析构函数，它们不能被（直接）实例化，除非使用实现了它们（的方法）的类}
31  TnTerImp:TmpInTerFace;  //实现接口类的对象
32begin
33 TImp:=TImplements.Create;
34 TnTerImp:=TmpInTerFace.create;  // 变量初始化.注意只有这样才能赋值.
35 Timp.FMInTerFace:=TnTerImp;  //也可以直接忽略TnTerImp变量而直接使用Timp.FMInTerFace:=TmpInTerFace.Create.
36 InTet:=TImp;
37 InTet.P1;
38end;
39
40end.
41