Delphi的学习笔记十四——接口

1.接口命名约定I起头,类是T起头的。

[delphi]  view plain  copy
  1. IMyInterface1 = Interface  
  2.     function Func1:Integer;  
  3.     function Func2:Integer;  
  4.  end;  

2.接口都是从IInterfacej继承的,若是从根接口继承,则可省略

[delphi]  view plain  copy
  1. {定义继承接口的类}  
  2. TMyClass = class(TInterfacedObject,IMyInterface1,IMyInterface2)  
  3. public  
  4.   procedure Proc1;  
  5.   procedure Proc2;  
  6.   function Func1:Integer;  
  7.   function Func2:Integer;  
  8. end;  

3.接口成员只能是方法、属性,没有字段

4.接口成员都是公开的

5.接口只有声明,没有实现

6.接口只能从另一个接口继承,但不能从多个接口继承

7.一个类可以实现多个接口

8.实现接口的类一般继承于TInfacedObject

9.接口在用完后会自释放,并同时释放拥有它的类

10.接口的使用

[delphi]  view plain  copy
  1. procedure TForm2.Button2Click(Sender: TObject);  
  2. var  
  3.   i1:IMyInterface1;  
  4. begin  
  5.   i1:=TMyClass.create;  
  6.   i1.Func1;  
  7.   i1.Func2;  
  8. end;  

接口的属性

1.接口属性的定义

[delphi]  view plain  copy
  1. {此接口声明了一个 Name 属性; 因为接口没有字段, read/write 都只能从方法}  
  2.   IMyInterface = interface  
  3.     function GetName:string;  
  4.     procedure SetName(val:string);  
  5.     property name:string read GetName write SetName;  
  6.   end;  


2.接口属性的实现。通过声明实现接口的类中的字段来存取属性的值

[delphi]  view plain  copy
  1. {类实现的是接口的读写方法, 属性还是属于接口的; 类可以提供一个储存属性的字段}  
  2. TMyClass = class(TInterfacedObject,IMyInterface)  
  3. private  
  4.   FName : string;  
  5. public  
  6.   function GetName: string;  
  7.   procedure SetName(valstring);  
  8. end;  
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值