中的面向对象.ppt

《中的面向对象.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、DELPHI中的面向对象DELPHI中的面向对象DELPHI中的面向对象类：具有相同属性和行为的一组对象的共同描述,是对相似对象建立的模板。对象：由类定义的对象，具体的是一个实体。注：DELPHI中的类，类似于记录，类和记录不同在于，类有行为等区别。类与对象类的声明对象的使用DELPHI中的面向对象DELPHI中的面向对象类的定义格式：type类名=class数据成员成员函数或过程end;注：成员函数或过程不允许在数据成员之上定义。类与对象例：type//该类中只含有数据成员。xuesheng=classxm:string;xh:string;cj:real;end;比较记录类型typexu

2、esheng=recordxm:string;xh:string;cj:real;end;类与对象DELPHI中的面向对象类与对象implementationtype//该类中只含有数据成员。xuesheng=class//定义xuesheng类xm:string;xh:string;cj1:real;cj2:real;procedureshow();//声明成员过程functionaver():real;//声明成员函数end;{$R*.dfm}procedurexuesheng.show();//定义类成员过程beginshowmessage(xm);end;functionxueshe

3、ng.aver():real;//定义类成员函数beginaver:=(cj1+cj2)/2;end;DELPHI中的面向对象对象的使用1、对象的声明对象的声明方式与变量相同var对象名:类名；对象声明以后，并不能直接使用，必须先创建对象。创建对象：格式对象名.Create;对象使用结束后，释放对象释放对象格式：对象名.Destroy对象名.free类与对象DELPHI中的面向对象例：我们已定义好xuesheng类procedureTForm1.Button1Click(Sender:TObject);varxs:xuesheng;Beginxs:=xuesheng.Create;//创建对

4、象xs.Destroy;//释放对象end;DELPHI中的面向对象对象的使用2、访问对象成员格式：对象名.成员注：访问对象之前，必须先创建对象。类与对象DELPHI中的面向对象例：我们已定义好xuesheng类procedureTForm1.Button1Click(Sender:TObject);varxs:xuesheng;beginxs:=xuesheng.Create;xs.cj1:=90.5;//访问数据成员xs.cj2:=85;xs.show();//访问成员函数或过程xs.Destroy;end;DELPHI中的面向对象类成员中，有三中访问权限，其标识符分别是Private私

5、有只有该类的内部成员，和本单元文件能够访问Protected保护只有该类的内部成员和它的派生类能够访问(以后将学习到)Public共有类外部或内部都能访问注：在默认情况下，类中没有加任何标识符的成员，为共有成员。类成员的访问权限DELPHI中的面向对象类定义的完整格式：type类名=classprivate私有数据成员、成员函数或过程protected保护数据成员、成员函数或过程public公共数据成员、成员函数或过程end;类成员的访问权限DELPHI中的面向对象将类放入同一文件DELPHI中的面向对象例：typeyuanxing=classprivatebanjing:integer;y

6、anse:string;publicproceduresetbanjing(i:integer);proceduresetyanse(st:string);functiongetbanjing():integer;functiongetyanse():string;end;procedureyuanxing.setbanjing(i:integer);beginbanjing:=i;end;procedureyuanxing.setyanse(st:string);beginyanse:=st;end;functionyuanxing.getbanjing():integer;beginge

7、tbanjing:=banjing;end;functionyuanxing.getyanse():string;begingetyanse:=yanse;end;将类放入一个单元文件中。例：我们已在本单元定义好yuanxing类procedureTForm1.Button1Click(Sender:TObject);varyuan:yuanxing;beginyuan:=yuanxing.Create;yu