delphi object pascal 編譯器的編譯指令之十二.txt

delphi 编程技巧

Delphi Object Pascal 編譯器的編譯指令之十二({$I檔案名稱})(本人會連續刊登) (2001年3月17日) 

网友更新  分类:数据库   作者:erp2  推荐:erp2   阅读次数:180  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
作者﹕黃智
郵件﹕[e-mail]
日期﹕2001-03-17
{$I檔案名稱} 含入檔案
以Delphi IDE修改Compiler directives的確相當方便, 但往往我們仍然需要將Compiler directives直接加入程式中, 可是當我們這樣作之後不用多久, 就會發現要一一重新修改各個單元中的這些Compiler directives時, 實在是既無聊而又容易出錯的工作。這時候, 假如您一開始就採用{$I檔案名稱}, 整件事就會變得很簡單。怎麼做呢? 讓我用一個例子告訴您 --
? 先用一般的文書編輯器建好一個MySet.inc的普通文字檔案, 內容為:
{$H+}
{$DEFINE _Proversion}
? 在我們的程式中, 加入一列{$I MySet.inc}, 例如:
unit Unit1;
{$I MySet.inc}

interface
…
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF _ProVersion}
ShowMessage('專業版');
{$Else}
ShowMessage('只有專業版才有此功能');
{$ENDIF}
end;
…
這是副程式的觀念嘛! 沒錯, 就是這麼簡單而已, 以後如果有任何變化, 修改MySet.INC, 然後Project/Buile All即可, 實在是夠簡單的了。
基本動作會了之後, 讓我告訴你多一點有關{$I檔案名稱}的事。
? 一旦應用了{$I檔案名稱}, 幾乎等於Compiler在編譯時, 讓Compiler將這個檔案的內容貼進我們的程式中的那個位置。
? 如果沒有註明副檔名, Delphi預設這個檔案是.PAS。
? 如果在專案的目錄中找不到這個檔案的話, Delphi會陸續搜尋Tools/Options/Library中的Library Path中的目錄。
另外, 當您寫作了一個DLL, 使用者在使用其中的函數前必須宣告過, 如果能夠一併提供這些函數的宣告檔, 使用者只要一行{$I xxx}即可, 是不是很方便呢?