delphi - 有没有办法找到我在delphi数据模块中使用的框架类型？

Question

我在 Delphi Berlin 遇到以下问题。
我有一个数据模块，它使用编译器指令保留多个平台功能。
例如
VCL 的 {$IFDEF ISVCLAPP} 函数
FMX 的 {$IFDEF ISFMXAPP} 函数
等等
但是我无法摆脱 Android (FMX) 环境中的 use 子句中的 FireDAC.VCLUI.Wait。
我放置了 FireDAC.FMXUI.Wait 但它似乎被编译器忽略并继续添加，无论我使用 VCLUI 单元。

我相信代码中的某些内容不断告诉delphi环境这是一个VCL框架。有没有办法找到这样的东西？

Answer 1

不幸的是，没有可以检查的内置定义，但您可以创建自己的定义。在 %APPDATA%\Embarcadero\BDS\18.0(对于 Delphi Berlin)中创建(或以有意义的方式扩展)名为 UserTools.proj 的文件，其中包含以下内容:

<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
       <DCC_Define>FrameWork_$(FrameworkType);$(DCC_Define)</DCC_Define>
    </PropertyGroup>
</Project>

这允许检查源文件中的当前框架，如下所示:

{$IFDEF FrameWork_VCL}

或

{$IFDEF FrameWork_FMX}

请注意，在某些情况下，这两者都可能根本没有定义。

请注意，上述文件位于您的用户 appdata 文件夹中，因此其他用户需要自己的副本才能使用它。