-
客服电话
-
APP下载
迪恩网络APP
随时随地掌握行业动态
-
官方微信
扫描二维码
关注迪恩网络微信公众号
客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
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;
|
2022-08-15
2022-08-17
2022-09-23
2023-10-27
2022-08-18
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论