计算机等级考试：Delphi过程类型的基础学习

　　什么是过程类型?

　　把一个变量声明为过程类型，可以把一个过程或函数作为一个整体赋给这个变量或者把这个变量作为参数传递给其它过程或函数。

　　声明一个过程类型的语法同声明一个过程或函数的首部语法相似，不同的是在保留字Procedure或fun- ction后不需要有过程或函数的标识符，例如：

　　Type Proc1=Procedure;

　　Proc2=Procedure(VarX,Y:integer);

　　Proc3=Function(X:Double):Double;

　　上例中，声明了三个过程类型，第一个是不带任何参数的过程，第二个是带两个参数的过程，第三个是带一个Double类型的参数并返回Double类型值的函数。

　　同声明一个过程或函数一样，您在声明一个过程类型时可以指定一种调用约定方式，缺省就是Register方式。

　　下面我们举例说明过程类型的用法：

　　Type SwapProc=Procedure(Var X,Y:Integer);

　　MathFunc=Function(X:Double):Double;

　　//以上是类型声明部分

　　Var P:SwapProc; F:MathFunc;

　　//以上把P说明为SwapProc 类型的变量，把F说明为MathFunc类型的变量

　　Procedure Swap(var A,B:integer);

　　Var Temp:Integer;

　　Begin Temp:=A;

　　A:=B;

　　B:=Temp;

　　End;

　　Function Tan(Angle:Double);

　　Begin Tan:=Sin(Angle)/Cos(Angle);

　　End;