《Delphi下深入Windows核心編程》（附錄A Delphi編譯指令說明）
Delphi快速高小的編譯器主要來自Object PASCAL的嚴謹，使用Delphi隨時都在與編譯器交流，大部分情況下不需要干涉編譯器的運行，但是有
時也需要對編譯器進行必要的設置。
**********************************************************************************************
A.1 使用編譯設置對話框
編譯器的編譯指令是用於指定編譯器對項目編譯過程的動作和行爲。可以通過[Project]->[Options]->[Complier]選項頁進行設置，絕大部分
的編譯環境都可以通過這一對話框進行調整，他包含了對代碼、語法、調試信息等的設置。
1.代碼設置(Code Generation)
Optimization: 代碼優化開關
Aligned record fields: 字對齊數據。這個編譯指令能夠在變量和類型化常量的字節對齊和字對齊之間進行切換，其作用是全局的。
Stack frames: Windows 堆棧幀。其作用域是局部的，他使編譯器成爲遠端過程和函數生成特定的開頭和結尾代碼。這個指令用於Windows 3.0
的實模式，對所有Delphi應用程序他應該是關閉的。
Pentium-safe FDIV: Pentium安全FDIV檢查。此指令能夠在Pentium處理器中指定編譯器是否創建能夠檢測和使用有缺陷的浮點除法指令的代碼
。
2.運行期錯誤(Runtime Errors)
Range Checking: 範圍檢查。這個指令的作用範圍是局部的，用於控制範圍檢驗代碼的生成。
I/O Checking: I/O檢查。這個指令的作用域爲局部，用來生成對一個文件的輸入和輸出過程和調用結果進行檢查的代碼。一般應該使其功能打
開。
Overflos Checking: 溢出檢查。其作用是生成對算術溢出檢查的代碼。
3.語法設置(Syntax Optings)
Strict Var- strings: 靜態變量串開關。用來控制對以變量參數形式傳遞的串的類型檢查。
Comlete Boolean Eval: 完全布爾表達量判定。用於執行強制的完整表達式判定。完全布爾量判定，有可能導致系統崩潰，所以一般不使用他
。
Extended Syntax: 擴展語法開關。他能允許或禁止Delphi的擴展語法。
Typed @ Operator: 類型化的@運算符檢查。應用於局部的變量引用上，控制@運算符返回的指針值類型。
Open Parameters: 開放參數開關。用於控制使用String關鍵字聲明的變量參數。開放參數允許將大小不一的串變量傳遞到同一個過程或函數中
，一般在彙編中會使用到。
Huge Strings: 字符串類型開關。用於控制Ansistring和Shortstring類型的切換。當打開時符合Ansistring，關閉時符合Shortstring。
Assignable Typed Constants: 可分配類型常量。用於向下與Delphi 1.0兼容。
4.調試(Debugging)
Debug Information: 調試信息開關。用於設置是否把調試信息寫入以編譯的單元文件(.dcu)。
Local Symbols: 局部符號開關。允許或禁止局部符號信息的創建。
Reference Info/Definitions Only: 符號信息開關。用於允許或禁止由Delohi的對象瀏覽器使用的符號引用信息的生成。
Assertions: 用於控制局部代碼的屬性。
Use Debug DCUs: 使用或禁止VCL的DCU文件調試。
5.信息(Messages)
Show Hints: 顯示暗示。
Show Warnings: 顯示警告。
**********************************************************************************************
A.2 使用編譯指令
除了使用編譯設置對話框對編譯器進行設置外，還可以通過編譯指令來對編譯器進行設置。
對於局部的編譯器設置，只有使用編譯指令來完成。
對於開關編譯指令，通過在編譯指令後加入指示開關狀態的加號和減號來控制編譯器。例如：
{$B+} : 打開完全布爾量檢查。
{$Q-} : 關閉溢出檢查。
通常，編譯指令的作用域是在編譯指令後的代碼部分，而對於全程的編譯指令應該防在單元接口部分的開頭。
編譯設置對話框的設置都有與之對應的編譯指令用於在代碼中對編譯器進行設置,如下表所示。
設置項 編譯指令
Optimizations {$O}
Aligned record fields {$A}
Stack frames {$W}
Pentium-safe FDIV {$U}
Range Checking {$R}
I/O Checking {$I}
Overflow Checking {$Q}
Strict Var-strings {$V}
Comlete Boolean Eval {$B}
Extended Syntax {$X}
Typed @ Operator {$T}
Open Parameters {$P}
Huge Strings {$H}
Assertions typed constants {$J}
Debug information {$D}
Local sysnbols {$L}
在這些編譯指令以外還有一些非常有用的編譯指令。
$R Filename : 這個編譯指令是最爲常用的編譯指令，他是資源文件編譯指令，用於指定連接到執行文件和庫的資源文件，例如在工程文件
(.dpr)中會有{$R *.RES}的編譯指令，表明把後綴爲 .RES的與工程文件同名的資源文件連接入執行文件，也可以指定一個資源文件，資源文件
的使用對於編寫Windows程序來說是很重要的基礎。
$I Filename :這個編譯指令功能類似於C語言的#Include , 用於指定編譯時包括的文件。
**********************************************************************************************
A.3 使用條件編譯指令
條件編譯指令是非常重要的編譯指令，他控制着在不同條件下（例如，不同的操作系統）產生不同的代碼。條件編譯指令是包含在
註釋括號之內的，如下表所示。
條件編譯指令 含義
$DEFINE 用於定義一個條件符號，一旦定義，條件符號就爲真
$ELSE 與$IFDEF配合使用，如果$IFDEF條件爲假，則只對源文件$ELSE後一小部分進行編譯
$ENDIF 結束一個以$IF開始的條件段
$IFDEF 對條件符號進行判斷，爲真則編譯源文件
$IFNDEF 對條件符號進行判斷，爲假則編譯源文件
$IFOPT 根據編譯開關狀態，對源文件編譯
$UNDEF 撤消以前的條件符號定義
這些條件編譯指令是非常有用的。例如，可以通過開關的狀態來控制編譯：
{IFOPT R+}
showmessage('Compiled with range-checking');
{$ENDIF}
也可以通過定義條件符號來控制編譯：
{$Define s}
……
{$ifdef s}
showmessage('yes');
{$else}
showmessage('no');
{$endif}
他的編譯結果是顯示'yes'，但是如果省去{$Define s}則顯示'no'。
在Delphi中已經預定義了一些關鍵的條件符號，如下表所示。
條件符號 含義
VERxx 編譯器版本，XX表示版本，例如：Delphi 1.0 的編譯器版本爲80、Delphi 5.0 的編譯器版本爲130
WIN32 是否WIN32的運行環境(Windows 95.98/NT/2000)
CPU386 是否Intel386以上的處理器
CONSOLE 是否控制檯程序
Delphi的編譯器指令除了以上的指令外還有一些，不過最爲常用的指令已經全部介紹完了。對於普通的程序，Delphi是不需要編程者去添加編
譯器指令的，Delphi已經自動完成，但是要得到高品質的應用程序或者有特殊的要求的程序就必須熟悉Delphi的編譯指令。Delphi不僅有最快
的編譯器而且編譯器的功能也非常強大。
**********************************************************************************************
簡單例子:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
FCaption: string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
//用到文件 VersionDefinition.inc
{$I VersionDefinition.inc} 或 {$DEFINE AAA} // 定義行
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FCaption := 'Other';
{$IFDEF AAA}
FCaption := 'AAA';
{$ENDIF}
{$IFDEF BBB}
FCaption := 'BBB';
{$ENDIF}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := FCaption;
end;
end.
**************************
文件VersionDefinition.inc內容
//////////////////////////
{$DEFINE AAA}
{..$DEFINE BBB}
-------------------------------------------
1.編譯後運行，按下Button，則看到窗體標題欄顯示“AAA”。程序編譯了FCaption := ’AAA’的語句。2.改變定義行的程序段：
當改爲{$DEFINE BBB}時，再次編譯運行，則看到窗體標題欄顯示“BBB”。程序編譯了FCaption := ’BBB’的語句。當取消定義行或改爲{$DEFINE NOTHING}或其他名稱時，再次編譯運行，則看到窗體標題欄顯示“Other”。程序只編譯了FCaption := ’Other’的語句。