- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Delphi编程语言ObjectPascal讲义1.1 认识Delphi感受Delphi编程Delphi的特点Delphi编程环境及其作用Delphi应用程序的文件组成Delphi中几个重要概念Delphi学习方法★本节要点练习感受Delphi编程下面在Delphi的集成开发环境中编写一个最简单程序,并运行。让大家对Delphi的编程有一种感性认识,并体验Delphi快捷、方便、高效的编程环境。演示Delphi的特点Delphi最早是Borland公司于1994年底发布的一种可视化编程语言。它以Object Pascal作为基本开发语言。目前已从Delphi 1.0发展到Delphi 7.0。它适用于Windows 9x, Windows xp,Windows 2000或更高的版本操作系统,同时也推出Lynux操作系统下的kylix版本。编程效率高、代码质量好领先的数据库技术强大的Internet应用开发功能与Office 的巧妙结合可视化编程语言编程语言的发展机器语言→汇编语言→高级语言(结构化→面向对象→可视化)面向对象的程序设计(Object Oriented Programming)可视化(Visual)编程语言Delphi,VFP,VB,VC 等,由组件来构造应用程序。面向对象的程序设计对象:把要处理的数据和处理这些数据的方法组合成的一种数据类型。对象有如下三大特性:封装性:把数据和处理数据的方法定义在同一数据类型(对象)中,一般只能用该对象中的方法来处理这些数据。继承性:可以用已定义的对象来构造其子对象,并且子对象可以访问其父对象中的数据和方法。多态性:为动作赋予一个可由对象序列共享的名称,对象序列中的每个对象均以适合于自身的方式实现该操作。事件驱动对象的多态性实例implementation{$R *.DFM}type TPerson=className:string; weight:integer;constructor Create(aName:string;aWeight:integer); function GetTitle:string; virtual; //父类中使用虚方法 function GetInformation:string;end; TStudent=class(TPerson) School:string;Constructor Create(aname:string;aWeight:integer;aSchool:string); function GetTitle:string; override;//子类中使用覆盖end;constructor TPerson.Create(aName:string;aWeight:integer); begininherited create; name:=aname; weight:=aweight; end;function TPerson.GetTitle:string; beginresult:=Name+ is a Person; end;对象的多态性实例(续)Constructor TStudent.Create(aname:string;aWeight:integer;aSchool:string);begininherited create(aname,aweight);school:=aschool;end;function TStudent.GetTitle:string;beginresult:=Name+ is a Student of +school; end;procedure showtitle(Person:TPerson);beginshowmessage(person.getInformation); end;procedure TForm1.Button1Click(Sender: TObject);varaPerson:TPerson;aStudent:TStudent;beginaPerson:=TPerson.create(David,60);AStudent:=TStudent.create(Young,65,Tsinghua);showtitle(aperson); //显示某人相关的信息showtitle(aStudent); //显示某学生相关的信息aperson.free; astudent.free; end;Delphi编程环境及其作用菜单栏与工具栏组件(Component)栏对象树状列表(Object TreeView)对象监视器(Object Inspector)窗体设计器(Form Designer)代码编辑器(Code Editor)项目管理器(Project Manager)D
文档评论(0)