如何让FreePascal中{$DEFINE xxx}定义的符号对其他单元可见？

我创建了PlatformDetection.pas源文件，通过{$DEFINE}指令做平台检测：

{$IF DEFINED(CPUARM)}
  {$DEFINE ARM}
{$ELSE}
  {$IF DEFINED(i386) or DEFINED(cpui386) or DEFINED(cpux86_64)}
    {$DEFINE INTEL}
  {$IFEND}
{$ENDIF}

{$IFDEF INTEL}
  // 这段代码能正常编译，符合我的处理器架构
{$ENDIF} 

这些定义在本单元内的函数中可以正常工作，但其他单元引用该单元后，这些符号却未被定义：

uses PlatformDetection;

...

{$IFDEF INTEL}
   // 这段代码不会被编译，但同样的代码在PlatformDetection.pas内可以正常工作
{$ENDIF}

请问如何让{$DEFINE}定义的符号对其他单元可见？

核心原因 #

{$DEFINE}指令默认是单元局部的，仅在定义它的单元内有效，其他单元即使引用该单元也无法访问这些符号。要让符号跨单元生效，有以下几种可行方案：

方案1：使用项目级条件定义 #

将平台检测的定义移到项目全局范围：

1. 打开项目选项（Project Options），进入Delphi Compiler > Conditional defines；
2. 根据当前平台添加对应的符号（比如INTEL或ARM），或者直接把检测逻辑写在项目源文件（.dpr）的最开头（所有uses语句之前）：

   {$IF DEFINED(CPUARM)}
     {$DEFINE ARM}
   {$ELSE}
     {$IF DEFINED(i386) or DEFINED(cpui386) or DEFINED(cpux86_64)}
       {$DEFINE INTEL}
     {$IFEND}
   {$ENDIF}
   
   program YourProject;
   
   uses
     ...
   

这样所有单元都能识别这些全局定义的符号。

方案2：通过包含文件共享定义 #

把平台检测逻辑提取到单独的.inc头文件中，让所有需要的单元都包含这个文件：

1. 创建PlatformDefs.inc文件，内容为原有的检测代码：

   {$IF DEFINED(CPUARM)}
     {$DEFINE ARM}
   {$ELSE}
     {$IF DEFINED(i386) or DEFINED(cpui386) or DEFINED(cpux86_64)}
       {$DEFINE INTEL}
     {$IFEND}
   {$ENDIF}
   

2. 在PlatformDetection.pas和其他需要使用符号的单元开头添加：

   {$INCLUDE PlatformDefs.inc}
   

这种方式既保持了检测逻辑的统一性，又能让所有包含该文件的单元访问符号。

方案3：导出编译时常量（替代{$IFDEF}） #

如果不需要用编译指令，而是通过代码逻辑判断，可在PlatformDetection的interface部分导出编译时初始化的常量：

unit PlatformDetection;

interface

const
  IsARM = {$IF DEFINED(CPUARM)}True{$ELSE}False{$IFEND};
  IsIntel = {$IF DEFINED(i386) or DEFINED(cpui386) or DEFINED(cpux86_64)}True{$ELSE}False{$IFEND};

implementation

// 原单元内代码...

end.

其他单元引用后，可通过常量值判断平台：

uses PlatformDetection;

...

if IsIntel then
begin
  // Intel平台专属代码（运行时判断，若需编译时剔除代码，建议用前两种方案）
end;

内容的提问来源于stack exchange，提问作者Adrian Maire