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;
  • 相关阅读:
    排球训练营
    TP5中手机端和PC端判断
    N550JV无法休眠,休眠自动重启的原因及解决方法
    HTML标签全称
    HTML思维导图
    HTML基础
    Web项目流程
    VsCode使用之HTML 中 CSS Class 智能提示
    MyEclipse崩溃 Java was started but returned exit code=-1073740791
    Python 类的特殊成员方法
  • 原文地址:https://www.cnblogs.com/karkash/p/3105655.html
Copyright © 2011-2022 走看看