zoukankan      html  css  js  c++  java
  • Delphi 的编译指令_New(2)

    1. $IFDEF 等同于 $IF DEFINED(...) :
    它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的标识.
    begin
    {$IFDEF VER200}
    ShowMessage('这是 Delphi 2009');
    {$ENDIF}
    {$IF DEFINED(VER200)}
    ShowMessage('这是 Delphi 2009');
    {$IFEND}
    end;


    2. $IFNDEF 等同于 $IF NOT DEFINED(...) :
    它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER150 是 Delphi 7 的标识.
    begin
    {$IFNDEF VER150}
    ShowMessage('这不是 Delphi 7');
    {$ENDIF}
    {$IF NOT DEFINED(VER150)}
    ShowMessage('这不是 Delphi 7');
    {$IFEND}
    end;


    3. 可以使用 or 和 and:
    begin
    {$DEFINE AAA}
    {$DEFINE BBB}
    {$IF DEFINED(AAA) OR DEFINED(BBB)}
    ShowMessage('条件标识符 AAA 和 BBB 其中一个定义了');
    {$IFEND}
    {$IF DEFINED(AAA) AND DEFINED(BBB)}
    ShowMessage('条件标识符 AAA 和 BBB 都定义了');
    {$IFEND}
    end;


    4. 可以使用 System 单元里的常量:
    我测试了 System 单元里的很多常量都没问题.
    begin
    ShowMessage(FloatToStr(CompilerVersion)); {在 Delphi 2009 中, CompilerVersion = 20.0}
    {$IF CompilerVersion >= 17.0}
    ShowMessage('这是 Delphi 2005 或以上的版本');
    {$IFEND}
    end;


    5. 使用 $IFOPT 判断编译开关:
    Delphi 挺好玩, 26个字母分别安排成不同的开关指令(用 Ctrl+o+o 查看, 当然开关指令不止这些);
    $IFOPT 可以判断这些指令是否打开.
    这个指令不是很常用, 我看了一下 2009 的 VCL 源码, 总共才用了 6 次.
    begin
    {$IFOPT B+}
    ShowMessage('指令 B 已打开');
    {$ELSE}
    ShowMessage('指令 B 已关闭');
    {$ENDIF}
    {$B+}
    {$IFOPT B+}
    ShowMessage('Ok!');
    {$ENDIF}
    end;
  • 相关阅读:
    我在面试中碰到的面试题
    JavaScript中数组去重的几种方法整理
    html网页外框布局设计总结
    css+Jquery实现抽拉式导航条和页面内容适应
    jquery不能实现对dom元素的伪类元素样式进行操作
    css的文字颜色渐变
    javascript函数立即调用
    javascript闭包
    js异步原理
    关于浏览器兼容问题
  • 原文地址:https://www.cnblogs.com/karkash/p/3105655.html
Copyright © 2011-2022 走看看