函数(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中测试通过。
posted on 2011-12-21 22:21 pchmonster 阅读(804) 评论(0) 编辑 收藏 举报