第一个程序 – 零基础入门学习Delphi01

第一个程序

让编程改变世界

Change the world by program

Delphi 简介:聪明的人使用 Delphi, 真正的程序员使用 C++!

Delphi 是著名的 Borland 公司开发的可视化软件开发环境,自 1995 年问世以来,带来了程序设计中的一场重大变化。

Delphi 作为第四代编程语言,具有简单、高效和功能强大等特点,这些特点使得它为广大程序开发者所青睐。

Delphi 的易用性和稳定性更是高手追求的境界!另外值得说的是,Delphi 的 VCL 架构是开源的。

鱼 C 故事会

话说有一天,VB、VC、DELPHI……乘坐火车出游,半路火车头坏了,大家很着急!

这时候,爱出风头的 Mr.VB 说:“我来为大家造一个火车头吧!”说干就干,Mr.VB 在树林中砍伐木头,一阵叮叮当当……

一个新的火车头出现了。Mr.VB 让大家上车,然后大喊:“开车喽——”结果,没有反应。

Mr.VB 经过多次实验后,突然恍然大悟:“哎呀,这个车头没有安装我的运行库!……运行库我可没有随身带着!!!……”

Mr.VC 生气了,“不象话,看我的!”于是 Mr.VC 又开始忙活起来。干了一会,Mr.VC 停下来,说:“怎么炼铁?我记不清了,需要查查资料。”

Mr.VC 拿出 MSDN 开始……,接着又干,一会又停下来,“我还要查查资料……”

天色已晚,Mr.DELPHI 终于沉不住气了,他开始在坏火车头里翻找,结果发现有许多“组件”和“控件”还可以利用,于是 Mr.DELPHI 开始组装,没有多久,一个“新的”火车头出现了……

汽笛长鸣,火车拉着沮丧的 Mr.VB、仍在沉思的 Mr.VC……又上路了!!

以上的一个不算能哄小孩子睡觉的小故事,说明了很多赤裸裸的真理;

其实有很多朋友选择易语言来进行学习,由于易语言有中文界面还相当容易使用。

但小甲鱼在这里可以很负责任地告诉大家,Delphi 在易用性和易学性方面绝对不会让大家失望。

最后,不管你们信不信,反正我是信了!

Delphi7 的下载和安装

安装演示视频!

Delphi7 的主窗口

宽客网,量化投资,宽客俱乐部

Delphi7 的主窗口

有如下 3 种方法向窗体添加组件

单击组件板上的组件,然后在窗体的适当位置单击并拖动鼠标。

直接双击组件,可将该组件添加到窗体的中心位置。

按住 Shift 键不放……

Delphi7 的窗体设计器

宽客网,量化投资,宽客俱乐部

Delphi7 的窗体设计器

对象观察器(Object Inspector)

宽客网,量化投资,宽客俱乐部

对象观察器(Object Inspector)

宽客网,量化投资,宽客俱乐部

代码编辑器和代码浏览器

第一个程序

编写一个显示鱼 C 欢迎词的小程序:单击【显示】按钮,将在窗体上显示欢迎词,单击【关闭】按钮,将关闭应用程序。

程序演示图:

宽客网,量化投资,宽客俱乐部

delphi 教程 | 第一个程序

小甲鱼仿佛听到一位美眉的呼唤:亲,快给大家演示下。

Delphi7 程序的组成

单元文件(结合刚刚的例子)

标志性语句——unit。

接口部分——interface 和 implementation 之间的部分。

implementation 之后是实现部分。

项目文件

标志性语句——program。

说明体部分——uses 与 begin 之间的部分,不包括 begin 语句。

程序体部分——begin 和 end 之间的部分。

典型实例实践

编程要求:

编写一个程序完成如下功能:程序运行时,单击【显示】按钮,编辑框(TEdit 组件)显示“爱编程,更爱鱼 C ^_^”,字体大小为 16 号,字体颜色为绿色。

单击【清除】按钮,编辑框显示的文本被清除。

程序演示:Follow me!!(课件及源代码下载)

编程提示:

欲使 TEdit 组件显示某个文本,如“hello”,只要给 TEdit 组件的 Text 属性赋值为“hello”即可,实现的语句为:Edit1.Text:=’hello’;。

TEdit 组件还有字体属性(包括大小,颜色等),按照同样的方法,设置 TEdit 组件的字体颜色为绿色,字体大小为 16 号即可。

为了使 TEdit 组件显示的文本被清除,只要给它的 Text 属性值赋值为空字符串即可。

课后上机练习

上鸡练习:文本及悬停文字的显示

要求:当鼠标停留在“显示”按钮上的时候,弹出悬停提示“显示鱼 C 欢迎词”

演示:Follow me(课件及源代码下载)

要点提示:

在对象查看器中把组件的 ShowHint

属性值设置为 True,在对象查看器中把组件的 Hint 属性值设置为要显示的悬停文本。

视频下载