第6章 过程和函数.pptVIP

第6章 过程与函数;6.1 过程相关概念 过程分类: 标准 过程 自定义过程：事件过程 通用过程:只能由别的过程来调用. 事件过程创建与调用： 选择控件、对象观察器、事件、输入代码 如：BUTTON1单击事件，依附于对象 1）一个事件过程也可以被多个对象事件共享。 方法一：为某个对象事件建立事件过程，其他对象事件可通过下拉列表选择 方法二：过程调用语句 例如： 2）若其中任何一个事件发生时，事件过程都会被调用，这时可根据SENDER参数和控件类的TAG属性值来区分事件的发生者，从而作出相应处理。 SENDER 或 （SENDER AS TBUTTON）。TAG;6.1.1 事件过程的创建与调用 1. 事件过程的创建 【例6-1】在一个窗口中包含3个按钮，当用户单击其中一个时，要求其他个别按钮不能使用，如图6-1所示。;procedure TForm1.Button1Click(Sender: TObject); begin Case (Sender as TButton).Tag of 0 : Button2.Enabled := False; 1 : Button1.Enabled := False; 2 : Begin Button1.Enabled := True; Button2.Enabled := True; end; end; end; (3) 在对象观察器（Object Inspector）中依次选择Button2和Button3，并在事件（Events）选项卡中选择事件OnClick，从事件名称右边的下拉列表中选择已经建立的事件过程名Button1Click。 或在建立的Button2/3Click事件过程写入代码 Form1.button1click(sender); //Form1.button1click(form1.button3);;6.1.2 通用过程的语法格式 通用过程在调用之前必须首先定义，定义一个通用过程也称为过程声明。过程声明要按照Delphi的语法，通用过程的语法格式与事件过程相仿，其一般形式为： Procedure 〈过程名〉[(〈形参表〉)] [〈局部声明〉] begin [〈语句列〉]; end; 6.1.3 通用过程的创建与调用 通用过程的调用通过过程语句来完成，过程语句的格式如下： 过程名(〈实参表〉); 如果过程没有形参时，过程语句的格式如下： 过程名; 或 过程名( ); ;通用过程举例 例5-2 改写例5-1为通用过程调用 通用过程被调用示意图：P 125 例：代码段： procedure Button (Sender: TObject); begin case (sender as tbutton).Tag of 0: button2.Enabled:=false; 1: button1.Enabled:=false; 2:begin button1.Enabled:=true; button2.Enabled:=true; end; end; end; 分别编写BUTTON1、BUTTON2、BUTTON3的单击事件过程语句： BUTTON（SENDER）； 再如P126 例5-3：;6.2 函数 6.2.1 函数的语法格式 函数的语法格式为： Function 〈函数名〉[(〈形参表〉)] :〈返回类型〉; [〈局部声明〉] begin [〈语句列〉]; end; ;6.2.2 函数的创建与调用 【例6-6】求3到10的阶乘之和（如图6-6所示）。 设计步骤如下： (1) 应用程序用户界面的建立与对象属性的设置参见图6-6。 (2) 编写函数代码的步骤如下所示。 (3) 编写按钮的OnClick事件代码： ;6.3向子程序传递参数 调用子程序时可以将数据传递给子程序,也可以将子程序中的数据传递回来.编制子程序时,首先要考虑输入哪些变量、处理后输出哪些变量。 1、形式参数与实际参数 形式参数：定义过程或函数时，出现在过程或函数首部中的变量名，用于接收变量。 实际参数：调用过程或函数时，传送给过程或函数的常量、变量或表达式。 注意：个数相等、顺序一致、类型相容 2、参数传递 1）变参传递 P133 例5-8 2）值参传递 改写上例;;x := InputBox(请输入,第一个参数,);