函数（functions）和过程（procedures）【二】

函数和过程经常要有一个声明，并且也要有一个定义。

声明（declaration）是一个简单的语句，它用来描述方法的名称和参数。当声明的是函数时，也要指出函数的返回类型。

函数和过程的定义（definition），在单元的implementation段，它实际上就是函数和过程的主体。

下列三种情况需要声明：

• 当其他单元要调用函数和过程时；
• 当函数或过程的定义处在调用此函数或过程的代码后面时。
• 当函数或过程是一个类的成员时。

函数和过程的声明要放在interface段，放在此段中，就自动使其他单元可以调用此函数和过程。

一个标准的声明和定义单元如下（还是以【一】中的范例为例子）

unit Unit1;

interface

{ some code removed...为了节省空间，舍掉部分代码不显示}

var
  Form1: TForm1;

{ 函数和过程的声明}
function Multiply(Num1, Num2: Integer): Integer;
procedure SayHello;

implementation

{$R *.dfm}

{ 函数的定义}
function Multiply(Num1, Num2: Integer): Integer;
begin
  Result := Num1 * Num2;
end;

{ 过程的定义}
procedure SayHello;
begin
  ShowMessage('Hello, World');
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  X: Integer;
begin
  X := Multiply(10, 20);       //调用Multiply函数，返回10*20的结果给X
  lbl1.Caption := IntToStr(X); //在label标签中显示结果200
  SayHello;                    (* 调用SayHello过程*)
end;

end.

代码均在Delphi7中测试通过。