在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…”（多个文件中查找字符串）的功能，找出所有定义版本符号的文件和位置，然后依次更改，保证所有位置已经改正。  
---------------------------------------------------------------  
 
---------------------------------------------------------------  
 
一般是这样的：  
{$HINTS  OFF}            <----OFF表示关闭  
procedure  Test;  
var  
 I:  Integer;  
begin  
end;  
{$HINTS  ON}              <----ON表示打开  
 
也有用:  
{$I+}  <----表示打开  
{$I-}  <----表示关闭  
这个编译指令是对I/O的检查。  
 
更具体的请查阅相关资料。  
 
---------------------------------------------------------------  
 
{$HINTS  ON}  或是  {$HINTS  OFF}                <----是否给出提示  
{$WARNINGS  ON}  或是  {$WARNINGS  OFF}    <----是否给出警告  
 
报错说明你的代码不能正确编译通过，请检查你得代码。  
如果随便输入代码DELPHI就能编译通过，那还了得。  
 
做记号，我想应该指地是点击最上面得收藏。  
 
---------------------------------------------------------------  
 
在Tools菜单Debugger  Options中的  
有个Integrated  debugging选择的，你把钩去掉。