标签：Fly anObj end Delphi 接口 简单 类别 实作

Delphi只能单继承，不像C++可以多继承，而接口则为Delphi提供了弹性、让类别能够宣告支持多接口，并加以实现的能力，同时避免因多重继承而可能产生的问题。

简单的，把接口想成是一个对象拥有多个不同的基础类别。从宏观的角度来看，接口比类别支持了更多不同的面向对象程序设计的模式。实作接口的对象，可以视作它所实作它作的每个接口的多重型态，实际上以接口为基础的模式是很强的。接口比较偏重在于封装，并提供给类别之间一种比继承更宽松一点的连接。

接口的使用

事实上，接口不算是类别，虽然接口可以重组类别，因为类别可以建立实体，但接口不行。接口可以被一个或多个类别加以实作，所有这些实体就可以算是支持了或者实作了该接口。

接口有一些独特的功能：

1.接口型别的变量会使用参考计数，跟类别型别的变量不同

2.类别是从单一前代类别继承而来，但可以实作多个接口

3.就像所有类别都是自TObject衍生而来，所有的接口都是从IInterfase衍生出来的，两者各归属于独立、正交的架构

透过不成文的约定，接口的名称以I大写字母开头，跟类别的T大写字母是不同的。

接口的宣告接口的定义就像类别的定义写法，这个定义包含一些方法，但这些方法不用实作，就像在一般类别里面的抽象方法一样。

以下就是一个接口的定义：

type

  ICanFly=interface

    function Fly:string;

end;

假设每个接口都直接或间接的从基础接口型别继承而来，相对的写法就变成了：

type

  ICanFly=interface(IInterface)

    funciton Fly:string;

end;

接口宣告最后一个重点，对接口来说，部分的型别检查是动态进行的，系统要求每一个接口都要具备一个唯一的标识符，或者称为GUID，可以在IDE里面按下Ctrl+Shift+G,编辑环境就会自动帮我们产生一组了。

type

  ICanFly=interface

    [{D7233EF2-B2DA-444A-9B49-09657417ADB7}]

    function  Fly:string;

end;

实作界面

任何类别都可以实作接口（个数不限），只要把它们列在基础类别后面，并且提供这些接口方法的执行程序代码即可：

type

  TAirplane=class(...,ICanFly)

    function Fly:string;

end;

function TAirplane.Fly:string;

begin

  //actual code

end;

当类别实作接口的时候，它必须提供该接口所有的方法（参数也必须要跟接口中该方法的宣告完全相同）的实作，所以在本例中的TAirplane类别就必须实作Fly方法，该方法必须回传一个字符串。假设这个接口也是从一个基础接口衍生而来，这个类别就必须实作出该接口，以及其基础接口的所有方法。

注：当我们实作接口时，可以选择以静态或虚拟方法来实作。如果准备在衍生类别里面重载方法，使用虚拟方法就有意义。建议需要的时候，把接口的方法宣告为虚拟方法，这样可以保留未来的扩充弹性。

现在已经定义了一个接口，以及用来实作它的类别。可以为这个类别建立实体，就把它当成一般类别来对待，可以这样写：

var

  Airplane1:TAirplane;

begin

  Airplane1:=TAirplane.create;

  try

    Airplane1.Fly;

  finally

    Airplane1.Free;

  end;

end;

然而也可以用接口作为型别来宣告变量，这会自动启动参考内存模式(会自动释放）：

var

  Flyer1:ICanFly;

begin

  Flyer1:=TAirplane.Create;

  Flyer1.Fly;

end;

当我们把一个对象指派给接口变量之后，透过as这个特殊指令，运行时间会自动检查该对象是否有实作这个接口。可以把整个指令这样写：

  Flyer1:=TAirplane.create as ICanFly;

 

混合参考的错误

使用对象的时候，我们应该只透过对象变量或只透过接口变量来存取对象。如果把两种作法混着用会打乱Object Pascal提供的参考计算器制，就可能导致非常难以发现的内存错误。实际上，如果我们决定要用接口，就应该只使用接口型别的变量。

以下是一个可能发生比较不一样错误的案例。假设我们建立了一个接口，用一个类别来实作它，并且用一个全局过程用这个接口作为参数：

type

  IMyInterface=interface

    ['{F7BEADFD-ED10-4048-BB0C-5B232CF3F272}']

    procedure Show;

  end;

  TMyIntfObject=class(TInterfacedObject,IMyInterface)

    public

     procedure Show;

  end;

procedure ShowThat(anIntf:IMyInterface);

begin

  anIntf.Show;

end;

这段程序看起来很直观，而且百分之百正确。可能发生的错误，只会来自与我们呼叫它的方法：

procedure TForm1.btnMixClick(Sender:TObject);

var

  anObj:TMyIntfObject;

begin

  anObj:=TMyIntfObject.create;

  try

    showThat(anObj);

  finally

    anObj.Free;

  end;

end;

上面这段程序则是把一个一般的对象传给原本要求接口当参数的过程。假设这个对象没有支持该接口，编译程序也不会对这个过程的使用提出可能发生错误的警告讯息。在这里的问题，是内存管理的方式。一开始，对象的参考计数会被设为0，表示没有参数使用到它。在进入ShowThat过程的时候，参考计数会被加成1.这没问题，程序的呼叫也会正常发生。等程序执行结束的时候，参考计数会被递减为0，所以该对象也就会被正常释放。换句话说，当程序结束，回到呼叫该过程的程序区段时，anObj对象就会被释放，这实在相当尴尬。当我们执行这段程序时，则会发生内存错误（除非我们在支持ARC的行动装置上执行，那么这段程序就会执行的很顺畅）。

有几个方法可以解决，我们可以手动增加参考计数的数字，并使用一些低阶的技巧。但实际的解法，就是不要把接口跟对象的参考混着用，并只使用接口对象来指向对象。

procedure TForm1.btnIntfOnlyClick(Sender:TObject);

var

  anObj:IMyInterface;

begin

  anObj:=TMyIntfObject.create;

  ShowThat(anObj);

end;

在这个特例里，就使用了这个解决这个方案，但在许多其他的状况下，很难发现到正确的写法。再次强调，最终解决方案就是不要把不同型别的参考混在一起使用。

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

标签：Fly,anObj,end,Delphi,接口,简单,类别,实作
来源： https://www.cnblogs.com/AP0606436/p/15863298.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。