Procedure型变量： 在DELPHI中，函数、过程的地址可以赋给一个特殊类型的变量，变量可用如下方式声明： var p : procedure(num:integer); //过程 或： var f : function(num:integer):integer; //函数 也可定义一个过程（或函数）类型，再定义该类型的变量，如： type TMyProc = Procedure(num:integer); var p : TMyProc; example: type TMyProc= procedure (filename : string); //定义过程类型 procedure clearfile(filename : string); begin {….} end ; … var p:TMyProc; //定义过程变量 … p := clearfile; //将具体实现的过程地址赋给过程变量 … p(‘log.dat’); //调用过程 … 可以将该类型的变量赋nil表示清除。 通过这种方式定义函数或过程的变量十分有用，如可用于装入动态链接库、根据不同的条件调用不同的过程等。 Method型变量： 在DELPHI中还有一种特殊的过程，叫做方法（method），在定义方法类型的时候要在过程定义的后面加上 of object，如： type TMyMethod=Procedure(num:integer) of object; 同样也可定义过程类型的变量： var m : TMyMethod; 可以将该类型的变量赋nil表示清除。 方法类型常用于类定义中的事件定义，如控件中常用的OnClick事件，它的类型定义如下： type TNotifyEvent=Procedure(Sender : TObject) of object; 区别： procedure与method的定义虽然很相似，但两者并不一样，也不通用，不能互相赋值。procedure型变量是一个指针指向实际的代码地址，而method型变量实际是一对指针，第一个指向代码的地址，第二个指向包含该代码的类的一个实例。区别一个过程是否是方法就看它是否属于一个类的成员。 Example： Type TMyProc=Procedure(str : String); //定义普通过程类型 TMyMethod=Procedure(str : String) of object; //定义方法类型 … //下面的代码是一个普通的过程 Procedure Proc1(str : String); Begin ShowMessage(str); End; … //下面的代码是一个方法 Procedure TForm1.Proc2(str : String); Begin ShowMessage(str); End; … var p : TMyProc; m : TMyMethod; … p := Proc1; //正确 m := Proc2; //正确 p := Proc2; //错误！ m := Proc1; //错误！ 在类型定义中，类型的属性（如事件）常用以下方式定义在published关键字后，如： property OnClick : TNotifyEvent read FOnClick write FOnClick; //FOnClick为类的方法型私有成员变量 但published关键字后的属性不能是普通的过程类型。普通过程类型只能在类的private、public、protected成员中。而方法类型可以是类的任何类型成员。 Example： Type TMyClass = class(TObject) Private FOnMyMethod: TMyMethod; FOnMyProc : TMyProc; Public Property OnMyProc1 : TMyProc read FOnMyProc write FOnMyProc； //正确 Published Property OnMyMethod : TMyMethod read FOnMyMethod write FOnMyMethod; //正确 Property OnMyProc2 : TMyProc read FOnMyProc write FOnMyProc； //错误！ End;
在Delphi中，也有与C相似的预编译指令，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这一类指令对于进行多版本的制作工作（如从标准版中出学习版），确实有着相当不错的用途。
一．指令介绍：
1． DEFINE指令：
格式：{$DEFINE 名称}
说明 ：用于定义一个在当前单元有效的符号（Symbol）。定义了
之后可以使用IF DEF和IFNDEF指令来判断该符号是否存在。
2． UNDEF指令：
格式：{$UNDEF 名称}
说明：用于取消一个在当前单元已经定义的符号（Symbol）。该指令和DEFINE
配合使用。
3． IFDEF指令：
格式：{$IFDEF 名称}
说明：如果该指令后的名称已经定义，则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
4． IFNDEF指令：
格式：{$IFNDEF 名称}
说明：如果该指令后的名称没有定义，则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
5． IFOPT指令：
格式：{$IFOPT 开关}
说明：如果该指令后的开关已经设立，则编译该指令后直到{$ELSE}或{$ENDIF}之间的代码段。
举例：{$IFOPT R+}
Writeln('编译时打开范围检查开关');
{$ENDIF}
6． ELSE指令：
格式：{$ELSE}
说明：通过判断前缀Ifxxx的条件式来确定该指令到{$ENDIF}之间的代码段是否应该被编译或者忽略掉。
7． ENDIF指令：
格式：{$ENDIF}
说明：和Ifxxx配合，指明条件预编译段源代码段的结束位置。
二．范例：
编写例子，通过预先定义不同的编译符号，进行不用代码段的编译工作。
1． 新建一个Delphi项目，在Unit1单元的窗体上添加一个Button按钮。
2． 编写程序如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
a : String;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$DEFINE AAA} // 定义行。
procedure TForm1.FormCreate(Sender: TObject);
begin
a := 'Other';
{$IFDEF AAA}
a := 'AAA';
{$ENDIF}
{$IFDEF BBB}
a := 'BBB';
{$ENDIF}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := a;
end;
end.
{注：粗体字部分为输入的代码}
3． 编译后运行，按下Button，则看到窗体标题栏显示“AAA”。程序编译了a := ’AAA’的语句。
4． 改变定义行的程序段：
当改为
{$DEFINE BBB}
时，再次编译运行，则看到窗体标题栏显示“BBB”。程序编译了a := ’BBB’的语句。
当取消定义行或改为
{$DEFINE NOTHING}
或其他名称时，再次编译运行，则看到窗体标题栏显示“Other”。程序只编译了a := ’Other’的语句。
三．如何快速的制作和更改版本：
使用预编译指令，在制作同一个程序的多个版本时，只需找出各版本中有区别的单元，依次定义统一的版本符号（Symbol），然后在程序段中加入条件预编译指令，就可以在实际编译中取舍编译不同的程序部分，这样对于程序的规范性（定义统一的版本符号）和保密性（不同的版本编译不同的程序部分）有很好的作用。
然而，由于该类预编译指令只能作用于当前单元，所以不便之处在于不能在一个公共单元定义一次版本符号，而必须在各单元中定义统一版本符号才行，故此，在更换版本时，需要确定所有的版本符号都已改变，这样才能保证各版本的正确性，对此，可以使用Delphi IDE的“Find in Files…”（多个文件中查找字符串）的功能，找出所有定义版本符号的文件和位置，然后依次更改，保证所有位置已经改正。
