在Delphi中，也有與C相似的預(yù)編譯指令，雖然該類指令只在當(dāng)前的單個(gè)文件有效（也有可能是筆者未全面了解該類指令的真正用法），但是這一類指令對(duì)于進(jìn)行多版本的制作工作（如從標(biāo)準(zhǔn)版中出學(xué)習(xí)版），確實(shí)有著相當(dāng)不錯(cuò)的用途。
一．指令介紹：
1．DEFINE指令：
格式：{$DEFINE 名稱}
說(shuō)明 ：用于定義一個(gè)在當(dāng)前單元有效的符號(hào)（Symbol）。定義了之后可以使用IF DEF和IFNDEF指令來(lái)判斷該符號(hào)是否存在。
2．UNDEF指令：
格式：{$UNDEF 名稱}
說(shuō)明：用于取消一個(gè)在當(dāng)前單元已經(jīng)定義的符號(hào)（Symbol）。該指令和DEFINE配合使用。
3．IFDEF指令：
格式：{$IFDEF 名稱}
說(shuō)明：如果該指令后的名稱已經(jīng)定義，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。
4．IFNDEF指令：
格式：{$IFNDEF 名稱}
說(shuō)明：如果該指令后的名稱沒(méi)有定義，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。
5．IFOPT指令：
格式：{$IFOPT 開(kāi)關(guān)}
說(shuō)明：如果該指令后的開(kāi)關(guān)已經(jīng)設(shè)立，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。
舉例：
{$IFOPT R+}
Writeln('編譯時(shí)打開(kāi)范圍檢查開(kāi)關(guān)');
{$ENDIF}
|
6．ELSE指令：
格式：{$ELSE}
說(shuō)明：通過(guò)判斷前綴Ifxxx的條件式來(lái)確定該指令到{$ENDIF}之間的代碼段是否應(yīng)該被編譯或者忽略掉。
7．ENDIF指令：
格式：{$ENDIF}
說(shuō)明：和Ifxxx配合，指明條件預(yù)編譯段源代碼段的結(jié)束位置。
二．范例：
編寫例子，通過(guò)預(yù)先定義不同的編譯符號(hào)，進(jìn)行不用代碼段的編譯工作。
1．新建一個(gè)Delphi項(xiàng)目，在Unit1單元的窗體上添加一個(gè)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’的語(yǔ)句。
4．改變定義行的程序段：
當(dāng)改為
時(shí)，再次編譯運(yùn)行，則看到窗體標(biāo)題欄顯示“BBB”。程序編譯了a := ’BBB’的語(yǔ)句。
當(dāng)取消定義行或改為
或其他名稱時(shí)，再次編譯運(yùn)行，則看到窗體標(biāo)題欄顯示“Other”。程序只編譯了
三．如何快速的制作和更改版本：
使用預(yù)編譯指令，在制作同一個(gè)程序的多個(gè)版本時(shí)，只需找出各版本中有區(qū)別的單元，依次定義統(tǒng)一的版本符號(hào)（Symbol），然后在程序段中加入條件預(yù)編譯指令，就可以在實(shí)際編譯中取舍編譯不同的程序部分，這樣對(duì)于程序的規(guī)范性（定義統(tǒng)一的版本符號(hào)）和保密性（不同的版本編譯不同的程序部分）有很好的作用。
然而，由于該類預(yù)編譯指令只能作用于當(dāng)前單元，所以不便之處在于不能在一個(gè)公共單元定義一次版本符號(hào)，而必須在各單元中定義統(tǒng)一版本符號(hào)才行，故此，在更換版本時(shí)，需要確定所有的版本符號(hào)都已改變，這樣才能保證各版本的正確性，對(duì)此，可以使用Delphi IDE的“Find in Files…”（多個(gè)文件中查找字符串）的功能，找出所有定義版本符號(hào)的文件和位置，然后依次更改，保證所有位置已經(jīng)改正。
一般是這樣的：
{$HINTS OFF} <----OFF表示關(guān)閉
procedure Test;
var
I: Integer;
begin
end;
{$HINTS ON} <----ON表示打開(kāi)
|
也有用:
{$I+} <----表示打開(kāi)
{$I-} <----表示關(guān)閉
|
這個(gè)編譯指令是對(duì)I/O的檢查。
更具體的請(qǐng)查閱相關(guān)資料。
{$HINTS ON} 或是 {$HINTS OFF} <----是否給出提示
{$WARNINGS ON} 或是 {$WARNINGS OFF} <----是否給出警告
|
報(bào)錯(cuò)說(shuō)明你的代碼不能正確編譯通過(guò)，請(qǐng)檢查你得代碼。如果隨便輸入代碼DELPHI就能編譯通過(guò)，那還了得。
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
