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

delphi 编程技巧

Delphi Object Pascal 編譯器的編譯指令之十({$IFOPT 開關})(本人會連續刊登) (2001年3月17日) 

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

--------------------------------------------------------------------------------
作者﹕黃智
郵件﹕[e-mail]
日期﹕2001-03-17

{$IFOPT 開關}
到底{$B}是開著或關著呢? 如果我們想要指示Compiler按照某一個編譯開關當時的狀態作我們指定的事, 應該該怎麼做呢? 這時, {$IFOPT}就派得上用場了。例如:
{$R+}
{$Q-} // 特別指定為Q-
{$IFOPT R+} // 如果 Range Check 是開啟的話
ShowMessage('程式是在 Range Check 開啟狀態下編譯的');
// 這個 Q+ 也會在 IFOPT R+ 成立時才通知 Compiler
{$Q+}
{$ENDIF}
{$IFOPT Q+}
ShowMessage('Q 也變成開啟狀態了');
{$ENDIF}
ShowMessage() 與 {$Q+}會在$R+ 的情形下才編譯, 因此, 雖然我們事前特別指示為{$Q-}, 第二個的ShowMessage()在程式執行時也可以看到「Q 也變成開啟狀態了」