上一页 下一页 返回
项目1比较大小
项目实现 学习支持
1.自定义过程的基本形式 一个过程是程序中相对独立的部分，用来实现某个特定的目
标。过程的说明由过程首部、＜声明部分＞和＜语句组＞三个部 分组成。过程的一般语法如下：
上一页 下一页 返回
பைடு நூலகம்
项目1比较大小
（1）每个过程以保留字procedure开始，procedure是Object Pascal的 关键字，用来标识子程序为过程；begin和end之间为过程的主体 部分；＜语句组＞可以为任何语句。
项目说明
本项目使用自定义shape过程完成了判断三角形类型的功能， 本项目还使用无参过程完成了“清除”按钮的功能，效果如图6-3 所示。
项目分析
1.窗体中的组件 （1）三个Edit组件用于接收用户输入的三角形三边。 （2）两个Label组件，其中一个用于提示“输入边长a，b，c”；另一
个用于显示判断结果。 （3）两个Button组件，“判断”按钮用于判断输入的三边是否能组成
项目分析
1.窗体中的组件 （1）两个Label组件，Label1用于提示“输入数字”，Label2用于显
示比较大小的结果。 （2）三个Edit组件，用于输入数字。 （3）两个Button组件，一个是“比较”按钮，另一个是“清空”按钮。 （4）窗体中组件属性设置如表6-1所示。
下一页 返回
项目1比较大小
下一页 返回
项目3判断闰年
2.项目中的事件 （1）“判断”按钮的OnClick事件，首先定义一个integer变量，用于
接收Edit组件输入的年份，然后调用runnian函数判断输入的年份 是闰年还是平年。 （2）runnian函数，返回值为string，如果输入的年份能够被4和100整 除，或被400整除即为闰年，否则为平年。
（5）窗体设计效果如图6-2所示。 2.项目中的事件 （1）“比较”按钮的OnClick事件，首先用三个变量分别接收三个
Edit组件输入的数字，然后调用自定义的compare过程，把三个数 字进行比较，最后把结果显示在Label2上。 （2）“清空”按钮的OnClick事件，清空三个Edit组件和Label2组件 的内容，以便于下一次的操作。 （3）自定义compare过程用于比较三个数字的大小，首先定义一个临 时变量temp用于存放临时数据，在这个过程中我们要把三个数字 进行两两比较，总是把较小的放在前面，形成逐渐递增的顺序。 Delphi提供了一种方法可以使自定义的函数或过程自动加入到窗 体单元文件的接口部分，我们可以将光标置于定义的函数或过程 内部并按下“Ctrl+Shift+C”即可。
边长和以判断的结果。 （3）shape过程，首先判断输入的三边是否能构成三角形，若能构成
三角形就把三边按照大小排序，c边为最大边，通过c*c与a*a+b*b 的关系来判断三角形的形状。 （4）empty过程，把三个Edit组件和Label2组件的内容置空。
项目实现
上一页 返回
项目3判断闰年
项目说明
三角形，以及三角形的形状，“清空”按钮用于清空三个Edit组 件和Label2的内容。
下一页 返回
项目2判断三角形类型
（4）窗体中组件属性设置如表6-2所示。 （5）窗体设置效果如图6-4所示。 2.项目中的事件 （1）“判断”按钮的OnClick事件，首先定义三个变量来接收Edit组
件输入的三个边长，然后调用shape过程判断三角形的形状。 （2）“清除”按钮的OnClick事件，调用empty过程清空已输入过的
第六章过程与函数
项目1比较大小 项目2判断三角形类型 项目3判断闰年项目 项目4简单计算器
项目1比较大小
项目说明
本项目使用自定义的compare过程，实现了三个数字比较大 小的功能。窗体运行之后先在编辑框中输入三个数字，然后单击 “比较”按钮，即可显示三个数字由小到大的排列；单击“清空” 按钮，可以清空编辑框中的内容。运行效果如图6-1所示。
上一页 下一页 返回
项目1比较大小
2.过程的调用与参数传递 调用用户自定义过程与调用系统预定义过程的方法完全相同，
其一般语法如下： ＜过程名＞(＜实际参数表＞)；
（1）对于带有参数的过程调用，实际参数要求在个数、顺序、类型等 方面与相应的形式参数必须一致。
（2）形参说明项的一般形式是：
（3）不带有var选项的形参说明项称为值形参，这种形参采用值传送， 即实参可以是任何表达式，并且是单向传送的。
本项目使用自定义的runnian函数完成判断闰年的功能，运 行效果如图6-5所示。
项目分析
1.窗体中的组件 （1）两个Label组件，一个用于显示提示信息“请输入年份：”，另
一个用于显示结果。 （2）一个Edit组件，用于接收用户输入的年份。 （3）一个Button组件，“判断”按钮。 （4）窗体中组件属性设置如表6-3所示。 （5）窗体设置效果如图6-6所示。
上一页 下一页 返回
项目1比较大小
3.过程声明的位置 在private部分定义的过程是私有函数或过程，只能在当前窗
体的单元文件中调用，而不能用于其他窗体； 在Public部分定义的函数或过程是公用函数或过程，可在当
前工程中任何窗体中调用，但必须添加被定义函数或过程所在的 单元文件。
上一页 返回
项目2判断三角形类型
（2）＜过程名＞是过程的名称，可以是任何合法的标识符，以后用它 来调用这个过程。
（3）＜形参说明表＞定义过程需要的各种参数，与函数中形式参数的 定义方法相同。当然形参表中可以为空，这时称为无参过程。如 果有多个参数，各形参说明项用分号隔开。形参说明项的一般形 式有两种：
（4）＜变量声明＞用于声明过程所使用的局部变量，它们只在本过程 中有效。
项目实现 学习支持
1.自定义函数的基本形式 在程序中，函数名出现的地方将返回函数的结果值。因此，
在函数首部中需指明返回值的类型。 用户自定义函数的一般语法如下：
上一页 下一页 返回
项目3判断闰年
2.函数的调用 函数的调用与过程不同，它不是以语句的形式出现，而是出
现在表达式中。凡是允许写表达式的地方，都可以出现函数调用。 如果函数的结果值与表达式的类型不一致，就必须进行类型转换。