在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}
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.
{注：粗體字部分為輸入的代碼}
{$DEFINE BBB}
{$DEFINE NOTHING}
a := 'Other'的語句。
{$HINTS OFF} <----OFF表示關閉
procedure Test;
var
I: Integer;
begin
end;
{$HINTS ON} <----ON表示打開
{$I+} <----表示打開
{$I-} <----表示關閉
{$HINTS ON} 或是 {$HINTS OFF} <----是否給出提示
{$WARNINGS ON} 或是 {$WARNINGS OFF} <----是否給出警告
