在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…”（多個文件中查找字串）的功能，找出所有定義版本符號的檔案和位置，然後依序更改，確保所有位置已經改正。