确保Delphi中UnitB.Initialization在UnitA.Initialization之后执行

一、显式依赖声明（最直接的常规方案） #

在UnitB的interface或implementation段的uses子句里明确写进UnitA，编译器会因为依赖关系强制UnitA先完成初始化。

• 代码示例：

  // UnitB.pas
  interface
  uses
    UnitA; // 显式声明依赖，确保UnitA先初始化
  type
    // 单元类型定义
  implementation
  initialization
    // 这段代码一定会在UnitA的初始化代码之后执行
  end.
  

• 注意：如果两个单元互相依赖，把其中一方的依赖移到implementation段，避免循环引用导致编译错误。

二、手动接管初始化流程（彻底消除自动顺序不确定性） #

直接删掉UnitA和UnitB的initialization段，改成手动调用的初始化函数，在程序入口按指定顺序执行。

• 代码示例：

  // UnitA.pas
  interface
  procedure InitUnitA;
  implementation
  procedure InitUnitA;
  begin
    // 原来写在initialization里的代码
  end;
  
  // UnitB.pas
  interface
  procedure InitUnitB;
  implementation
  procedure InitUnitB;
  begin
    // 原来写在initialization里的代码
  end;
  
  // 项目主文件(.dpr)
  program MyApp;
  uses
    Forms,
    UnitA in 'UnitA.pas',
    UnitB in 'UnitB.pas',
    MainForm in 'MainForm.pas' {Form1};
  begin
    Application.Initialize;
    InitUnitA; // 严格先初始化A
    InitUnitB; // 再初始化B
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end.
  

• 优势：完全由开发者掌控顺序，没有任何隐式逻辑干扰，适合复杂项目或对初始化顺序要求极高的场景。

三、利用初始化优先级指令（Delphi XE及以上版本支持） #

Delphi允许在initialization前加initialization priority指令，通过数值指定优先级——数值越小，初始化越早。

• 代码示例：

  // UnitA.pas
  initialization priority 100
    // 优先执行，因为优先级数值更小
  end.
  
  // UnitB.pas
  initialization priority 200
    // 后执行，200>100
  end.
  

• 注意：如果单元间存在依赖关系，依赖逻辑会覆盖优先级设置；全局范围内要避免优先级数值冲突，建议统一规划数值区间。

四、规避隐式依赖 #

不要通过全局变量、类引用等方式隐式依赖其他单元，所有依赖都必须显式写在uses子句中。隐式依赖会让编译器自动引入单元，导致初始化顺序完全不可控。

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