Delphi中預(yù)編譯指令如何使用

2019-11-18 17:58:53

字體：大中小

供稿：網(wǎng)友

在Delphi中，也有與C相似的預(yù)編譯指令，雖然該類指令只在當(dāng)前的單個文件有效（也有可能是筆者未全面了解該類指令的真正用法），但是這一類指令對于進(jìn)行多版本的制作工作（如從標(biāo)準(zhǔn)版中出學(xué)習(xí)版），確實有著相當(dāng)不錯的用途。

一．指令介紹：

1．DEFINE指令：
格式：{$DEFINE  名稱}
說明  ：用于定義一個在當(dāng)前單元有效的符號（Symbol）。定義了之后可以使用IF DEF和IFNDEF指令來判斷該符號是否存在。

2．UNDEF指令：
格式：{$UNDEF  名稱}
說明：用于取消一個在當(dāng)前單元已經(jīng)定義的符號（Symbol）。該指令和DEFINE配合使用。

3．IFDEF指令：
格式：{$IFDEF  名稱}
說明：如果該指令后的名稱已經(jīng)定義，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。

4．IFNDEF指令：
格式：{$IFNDEF  名稱}
說明：如果該指令后的名稱沒有定義，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。

5．IFOPT指令：
格式：{$IFOPT  開關(guān)}
說明：如果該指令后的開關(guān)已經(jīng)設(shè)立，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。
舉例：


{$IFOPT  R+}  
Writeln('編譯時打開范圍檢查開關(guān)');  
{$ENDIF}

6．ELSE指令：
格式：{$ELSE}
說明：通過判斷前綴Ifxxx的條件式來確定該指令到{$ENDIF}之間的代碼段是否應(yīng)該被編譯或者忽略掉。

7．ENDIF指令：
格式：{$ENDIF}
說明：和Ifxxx配合，指明條件預(yù)編譯段源代碼段的結(jié)束位置。

二．范例：

編寫例子，通過預(yù)先定義不同的編譯符號，進(jìn)行不用代碼段的編譯工作。

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．編譯后運(yùn)行，按下Button，則看到窗體標(biāo)題欄顯示“AAA”。程序編譯了a  :=  ’AAA’的語句。
4．改變定義行的程序段：

當(dāng)改為


{$DEFINE  BBB}

時，再次編譯運(yùn)行，則看到窗體標(biāo)題欄顯示“BBB”。程序編譯了a := ’BBB’的語句。

當(dāng)取消定義行或改為

{$DEFINE NOTHING}

或其他名稱時，再次編譯運(yùn)行，則看到窗體標(biāo)題欄顯示“Other”。程序只編譯了

a := 'Other'的語句。

三．如何快速的制作和更改版本：

使用預(yù)編譯指令，在制作同一個程序的多個版本時，只需找出各版本中有區(qū)別的單元，依次定義統(tǒng)一的版本符號（Symbol），然后在程序段中加入條件預(yù)編譯指令，就可以在實際編譯中取舍編譯不同的程序部分，這樣對于程序的規(guī)范性（定義統(tǒng)一的版本符號）和保密性（不同的版本編譯不同的程序部分）有很好的作用。

然而，由于該類預(yù)編譯指令只能作用于當(dāng)前單元，所以不便之處在于不能在一個公共單元定義一次版本符號，而必須在各單元中定義統(tǒng)一版本符號才行，故此，在更換版本時，需要確定所有的版本符號都已改變，這樣才能保證各版本的正確性，對此，可以使用Delphi  IDE的“Find  in  Files…”（多個文件中查找字符串）的功能，找出所有定義版本符號的文件和位置，然后依次更改，保證所有位置已經(jīng)改正。

一般是這樣的：


{$HINTS  OFF}            <----OFF表示關(guān)閉  
procedure  Test;  
var  
I:  Integer;  
begin  
end;  
{$HINTS  ON}              <----ON表示打開

也有用:


{$I+}  <----表示打開  
{$I-}  <----表示關(guān)閉

這個編譯指令是對I/O的檢查。

更具體的請查閱相關(guān)資料。


{$HINTS  ON}  或是  {$HINTS  OFF}                <----是否給出提示  
{$WARNINGS  ON}  或是  {$WARNINGS  OFF}    <----是否給出警告

報錯說明你的代碼不能正確編譯通過，請檢查你得代碼。如果隨便輸入代碼DELPHI就能編譯通過，那還了得。

上一篇：一個只有17K的Delphi字符串加密程序源碼

下一篇：Delphi的TWebBrowser編程綜述

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

Delphi中預(yù)編譯指令如何使用