Delphi 中的預編譯指令

2021-05-24 01:58:24 字數 2556 閱讀 9332

delphi 中的預編譯指令

在delphi中,也有與c相似的預編譯指令,雖然該類指令只在當前的單個檔案有效(也有可能是筆者未全面了解該類指令的真正用法),但是這一類指令對於進行多版本的製作工作(如從標準版中出學習版),確實有著相當不錯的用途。 

一.指令介紹: 

1.define指令: 

格式: 

說明 :用於定義乙個在當前單元有效的符號(symbol)。定義了之後可以使用if def和ifndef指令來判斷該符號是否存在。 

2.undef指令: 

格式: 

說明:用於取消乙個在當前單元已經定義的符號(symbol)。該指令和define配合使用。 

3.ifdef指令: 

格式: 

說明:如果該指令後的名稱已經定義,則編譯該指令後直到或之間的**段。 

4.ifndef指令: 

格式: 

說明:如果該指令後的名稱沒有定義,則編譯該指令後直到或之間的**段。 

5.ifopt指令: 

格式: 

說明:如果該指令後的開關已經設立,則編譯該指令後直到或之間的**段。 

舉例: 

writeln ('編譯時開啟範圍檢查開關'); 

6.else指令: 

格式: 

說明:通過判斷字首if***的條件式來確定該指令到之間的**段是否應該被編譯或者忽略掉。 

7.endif指令: 

格式: 

說明:和if***配合,指明條件預編譯段源**段的結束位置。 

二.範例: 

編寫例子,通過預先定義不同的編譯符號,進行不用**段的編譯工作。 

1.新建乙個delphi專案,在unit1單元的窗體上新增乙個button按鈕。 

2.編寫程式如下: 

unit unit1; 

inte***ce 

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 

public 

a : string ; 

end ; 

var 

form1: tform1; 

implementation 

// 定義行。 

procedure tform1.formcreate(sender: tobject); 

begin 

a := 'other'; 

a := 'aaa';   

a := 'bbb'; 

end ; 

procedure tform1.button1click(sender: tobject); 

begin 

caption := a; 

end ; 

end. 

3.編譯後執行,按下button,則看到窗體標題欄顯示「aaa」。程式編譯了a := 』aaa』的語句。 

4.改變定義行的程式段: 

當改為 

時,再次編譯執行,則看到窗體標題欄顯示「bbb」。程式編譯了a := 』bbb』的語句。 

當取消定義行或改為 

或其他名稱時,再次編譯執行,則看到窗體標題欄顯示「other」。程式只編譯了

a := 'other'的語句。 

三.如何快速的製作和更改版本: 

使用預編譯指令,在製作同乙個程式的多個版本時,只需找出各版本中有區別的單元,依次定義統一的版本符號(symbol),然後在程式段中加入條件預編譯指令,就可以在實際編譯中取捨編譯不同的程式部分,這樣對於程式的規範性(定義統一的版本符號)和保密性(不同的版本編譯不同的程式部分)有很好的作用。 

然而,由於該類預編譯指令只能作用於當前單元,所以不便之處在於不能在乙個公共單元定義一次版本符號,而必須在各單元中定義統一版本符號才行,故此,在更換版本時,需要確定所有的版本符號都已改變,這樣才能保證各版本的正確性,對此,可以使用delphi ide的「find in files…」(多個檔案中查詢字串)的功能,找出所有定義版本符號的檔案和位置,然後依次更改,保證所有位置已經改正。 

一般是這樣的: 

<----off表示關閉 

procedure test; 

var 

i: integer; 

begin 

end ; 

<----on 表示開啟 

也有用:

<----表示開啟 

<----表示關閉 

這個編譯指令是對i/o的檢查。 

更具體的請查閱相關資料。 

或是 <----是否給出提示 

或是 <----是否給出警告 

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

Delphi中預編譯指令如何使用

在delphi中,也有與c相似的預編譯指令,雖然該類指令只在當前的單個檔案有效 也有可能是筆者未全面了解該類指令的真正用法 但是這一類指令對於進行多版本的製作工作 如從標準版中出學習版 確實有著相當不錯的用途。一 指令介紹 1 define指令 格式 說明 用於定義乙個在當前單元有效的符號 symb...

關於Delphi中預編譯指令的使用方法

在delphi中,也有與c相似的預編譯指令,雖然該類指令只在當前的單個檔案有效 也有可能是筆者未全面了解該類指令的真正用法 但是這一類指令對於進行多版本的製作工作 如從標準版中出學習版 確實有著相當不錯的用途。一 指令介紹 1 define指令 格式 說明 用於定義乙個在當前單元有效的符號 symb...

關於Delphi中預編譯指令的使用方法

在delphi中,也有與c相似的預編譯指令,雖然該類指令只在當前的單個檔案有效 也有可能是筆者未全面了解該類指令的真正用法 但是這一類指令對於進行多版本的製作工作 如從標準版中出學習版 確實有著相當不錯的用途。一 指令介紹 1 define指令 格式 說明 用於定義乙個在當前單元有效的符號 symb...