易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi面向对象学习随笔六:接口

文章来自:http://www.cnpack.org/showdetail.php?id=571&lang=zh-cn
在对象化中,类的继承是一个非常强大的机制;而更加强大的继承机制应该是来自从一个接口的继承。
    本篇我们将讨论接口的特点。
    首先,接口的定义方式与类相似。不同的是:类代表了一种实体,而接口代表了一批操作规范。还有,接口中所有的数据成员都是public访问限制,也就是说,你不能为接口中的数据成员指定其为私有或其他的域成员。另外,接口中的方法只能有声明而不能有实现,因此它看上去更像是一个没有构造和析构方法的纯虚类。
    我看的很多资料中,凡是在介绍接口的时候都会提到“多重继承”,仿佛接口的存在只是为了弥补Object Pascal不支持多重继承而设计的(至少给我的第一印象就是这样),其实接口是非常强大的,也是对象化编程中不可或缺的一个重要组成部分。
    接口之所以强大在于:接口只需要告诉用户方法的名称是什么,有什么参数;而它并不需要理会方法是怎么实现的。例如电脑的构造和工作方式对于一般用户并不重要,因为一般用户更关心的是如何去使用他。所以电脑的接口——鼠标、键盘、显示器等才是用户最关心的地方。那么这就为我们实现对象化最核心的理念——“分离”提供了相当大的便捷。
    首先我们来看看接口的定义方式:下面是Delphi中System.pas里IInterface接口的声名方式
type
  IInterface = interface
    ['']
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;
我们可以看到,和类的基本声明差不多,只是由关键字class改成了interface。
    大家也许会注意到在紧跟在声明后的[''],这是什么呢?这是其实是接口的唯一标识,也就是我们说的TGUID;当把接口注册给系统后,我们可以通过注册表检索到00000000-0000-0000-C000-000000000046这样的键值。那么这就意味着,我们只需要知道一个TGUID的值就可以方便的访问这个接口。
    当然,你可以在接口中定义其他的方法,但是Delphi中是不允许


相关文档:

Delphi 7高效数据库程序设计

内容简介
    dbExpress是Borland公司下一代数据访问技术。本书不仅详细介绍了dbExpress的基本功能、使用技巧以及Delphi/Kylix的DataSnap技术,还详细讨论了dbExpress的实现原理以及dbExpress的未来发展趋势。本书结构清晰,讲解透彻,实例丰富。作者李维是Borland公司著名技术专家,曾著有多部Delphi名 ......

delphi DataSnap巢状主从表实现

服务端:添加ADOConnection,ADOQuery1,ADOQuery2。设置ADOQuery1为主表,ADOQuery2为从表。(通过  ADOQuery2.SQL.Text:= 'select * from 从表 where FKID=:主表PKID'设置)。添加DataSetProvider1和DataSetProvider2分别连接到ADOQuery1和ADOQuery2。
客户端:添加ClientDataSet1,ClientDataSet2。ClientDataS ......

Delphi Open Tools API 浅探

savetime2k@yahoo.com  2004.1.28
http://savetime.delphibbs.com
今天开始学习元件编辑器,感觉比属性编辑器简单许多,但还是遇到了一些疑问。如果你能解答文中记录的问题,请告诉我答案,谢谢!
目 录
===============================================================================
⊙ TBaseComponentEdit ......

delphi string类型转integer时出错的检测

procedure TForm1.Button1Click(Sender: TObject);
Var
  Num: Integer;
Begin
  Try
    Num:=StrToInt(Edit1.Text);
    Edit2.Text:=IntToStr(Num*Num);
  Except
    On EConvertError Do   ShowMessage(Edit1.Text+'无法转成整数!'); ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号