过程与函数都是独立的程序块,称为子程序。过程与的区别在于:过程没有返回值,而函数有返回值。Delphi的运行库包含许多过程与函数以供用户的应用程序调用。用户也可以自定义例程或直接调用WindowsAPI函数。
2.5.1过程的定义
过程是完成某一特定功能的程序段。过程的调用,以语句的形式出现。
过程的定义包括过程原型定义和过程体定义,前者通常放在单元接口部分。
1.过程原型定义语法形式 .
procedure<过程名>([[var]<参数名>:<类型>][;[var]<参数名>:<类型>]…);
[指示字]
其中的“指示字"用来标明调用时要遵守的约定,是否有内嵌的汇编语言实现等。可以一次设置多个指示字,其间使用分号隔开。调用约定指示字可用来定义参数的传递方式。
2.过程体定义语法形式
定义了过程原型之后,还要在单元执行部分定义该过程体,其形式为:
procedure<过程名>(<形式参数表>);[指示字]
标号定义部分 //对过程中使用的标号用label语句加以说明
常量定义部分 //对过程中使用的常量用const语句加以说明
类型定义部分 //使用type语句定义自己需要的数据类型
局部变量定义部分 //对在过程中使用的所有变量进行说明,用var语句加以说明
过程和函数定义部分 //定义在本过程中使用的过程或函数
begin //过程体,是过程具体实现的代码部分
<语句>
end.
3.过程定义和调用的实例
例2.10 定义一个简单的过程,名为writing,用来输出5行字符串,其字符串参数为s,其中只定义和使用了一个局部变量i,用来控制循环。在主程序中调用了它。
program Project2—1 0;
{$APPTYPE CONSOLE}
{$R木.res}
var x:String;
procedure writing(S:String);//过程定义
Var
i:Integer;
begin
for i:=1 to 5 do
writeln(S);
end;
begin //主程序开始
writeln(’以下是调用过程的执行结果:’);
x:=’欢迎
大家使用Delphi’; ’
‘writing(x);//调用自定义过程writing
readln;
end.