Delphi中預編譯指令如何使用

 
在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}

6ELSE指令:  
格式:{$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就能編譯通過,那還了得。

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章