【4.Delphi程序设计】1.过程

1.过程

在 Delphi 中，运行结束后没有返回值的子程序称为过程，过程有三种类型：

• 标准过程 - 系统内部已经定义好的过程，在需要的时候直接调用即可。

• 事件过程 - 当对象接收到某个动作时常数一个事件，自动执行该对象事件的一段程序，这段程序就是一个事件过程。

• 自定义过程 - 被独立定义的过程称为自定义过程。

1.1自定义过程的声明

一般情况下，自定义过程定义在单元的 implementation 部分中的 {$R *.dfm} 后面。其声明格式：

procedure <过程名> [(<形参表>)];
    [<局部声明>]
begin
    [过程语句]
end;

说明：

1. procedure 声明行必须以分号结尾。

2. 必须包含一个begin ... end结构，end后面必须以分号结尾。

<形参表> 的格式：

[Var | Const] <参数名>: <类型>

1. Var 表示参数传递方式为地址传递，即形参值的变化会反映到实参中

2. Const 表示在过程内部不能改变形参的值

3. 如果没有Var 或 Const声明的参数，其传递方式为值传递，在过程中对形参的改变不会反映到实参中

4. 过程可以没有任何形参，也可以有若干形参

5. 形参表中多个参数之间用分号分隔

<局部声明>部分用来声明只能在过程中使用的变量、常量或另外一个过程和函数。

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就是一个自定义过程。