1.过程
在 Delphi 中,运行结束后没有返回值的子程序称为过程,过程有三种类型:
-
标准过程 - 系统内部已经定义好的过程,在需要的时候直接调用即可。
-
事件过程 - 当对象接收到某个动作时常数一个事件,自动执行该对象事件的一段程序,这段程序就是一个事件过程。
-
自定义过程 - 被独立定义的过程称为自定义过程。
1.1自定义过程的声明
一般情况下,自定义过程定义在单元的 implementation 部分中的 {$R *.dfm} 后面。其声明格式:
procedure <过程名> [(<形参表>)]; [<局部声明>] begin [过程语句] end;
说明:
-
procedure 声明行必须以分号结尾。
-
必须包含一个begin ... end结构,end后面必须以分号结尾。
<形参表> 的格式:
[Var | Const] <参数名>: <类型>
-
Var 表示参数传递方式为地址传递,即形参值的变化会反映到实参中
-
Const 表示在过程内部不能改变形参的值
-
如果没有Var 或 Const声明的参数,其传递方式为值传递,在过程中对形参的改变不会反映到实参中
-
过程可以没有任何形参,也可以有若干形参
-
形参表中多个参数之间用分号分隔
<局部声明>部分用来声明只能在过程中使用的变量、常量或另外一个过程和函数。
1.2自定义过程的创建和使用
两种自定义过程:
1.只能在本单元中使用的过程;
2.在其他单元中也可以使用的过程;
两种都可以在单元的 implementation 部分中的 {$R *.dfm} 后面创建,如果要创建能够在其他单元中使用的过程,必须将过程首部声明在单元的公共接口部分(interface)中。
示例:实现两个整数的n次方的和。界面如下图:
显然,从题目中发现,对两个整数的n次方运算是一个可以自定义的过程,当然,我们在这里不使用标准函数来实现,使用自定义过程来实现,代码如下:
procedure MiOfn(n: Integer; m: Integer; Var Result: Integer); var i: Integer; begin Result := n; for i := 1 to m - 1 do Result := Result * n; end; procedure TForm1.Button1Click(Sender: TObject); var n, m, r, sum: Integer; begin // 计算 n := StrToInt(Edit1.Text); m := StrToInt(Edit2.Text); MiOfn(n, m, r); sum := r; n := StrToInt(Edit3.Text); m := StrToInt(Edit4.Text); MiOfn(n, m, r); sum := sum + r; Edit5.Text := IntToStr(sum); end;
在上面的代码中,MiOfn就是一个自定义过程。