Delphi中OOP方法的应用.pdfVIP

维普资讯 第 2l卷第 2期 齐 齐 哈 尔 大 学 学 报 2005年 6月 JournalofQiqiharUniversity Delphi中OOP方法的应用 王世波 杨 铭 王 成 (齐齐哈尔大学经济管理学院，齐齐哈尔 161006) 摘 要：本文介绍了Delphi中OOP方法的使用，以此促进 OOP方法在程序设计 中的应用。 关 键 词 ：Delphi；OOP；继承；构造 中图分类号：11P3l1．132．4 文献标识码：A 文章编号l：1007—984X(2005)02—0069—03 Delphi是一种面向对象的程序设计语言，它与传统的面向过程的设计语言有很大的差别，实现面向对 象的机制是Delphi程序设计的重点，也是Delphi语言与面向过程语言问的本质区别。本文介绍了如何在 Delphiq~应用面向对象的编程的方法 。 1 在Delphi中的封装即类的定义 当用class关键字声明一种类型时，就创造了一个类，注意在Delphi~对类的声明是放在程序源文件的 Type区中的TMyClass是要创建的类名，此时的类声明格式与标准意义的类声明是不一样的。 Type TMyClass=class end； 虽然在TMyClass中，还没有为它定义任何成员，但是，它的确是一个类，完全可以创建这个类的对象 实例，比如下列代码： var MyObj：=TMyClass．Create()； MyObj：TMyClass； MyObj．Free()； begin end； MyObj就是这个TMyClass类的对象，而Create()函数和Free()函数则是用来构造对象与调用类的析构函 数来销毁对象的两个函数。 下面给出一个在Type区中的完整的类定义。其中aa是类TMyClass2的整型数据成员 ，SeWalue是 TMyClass2的函数成员。Create()和Destroy()分别是构造函数和析构函数，而Constructor和Destructor~1]是用来 定义构造函数和析构函数的关键字。析构函数中的override~llJ是保证在多态的情况下对象能正确被析 构。……之处则是省略了实现代码。implementation是Delphi~的一个区域，函数实现在那里给出。 Type end； TMyClass2=class procedureTMyClass2．SetValue(Value：Integer)； private begin aa：Integer； aa：=Value； pubic end； procedureSetValue(Value：Integer)； implementation ConstructorCreate(intaa：integer)； ConsturctorTMyClass2．Create(intaa：integer)； DesturctorDestroy0；override； begin 收稿 日期 ：20o4-_0I—o4 作者简介：王世波，男，1979年生 ，助教，主要从事信息管理与信息系统研究。 维普资讯 · 70· 齐 齐