如何在Delphi中实现单元统一引用？无需合并源文件

完全可以实现你要的效果，核心是创建一个聚合单元，通过它批量导出其他单元的公开类型，具体操作如下：

实现步骤 #

1. 创建聚合单元
   新建一个单元（比如命名为AllRecordTypes.pas），在它的interface区域通过uses语句引入所有存放记录类型的目标单元。示例代码：

   unit AllRecordTypes;
   
   interface
   
   uses
     Unit2, Unit3, Unit4; // 列出所有包含需要共享记录类型的单元
   
   implementation
   
   end.
   

2. 引用聚合单元使用类型
   在任何需要使用这些记录类型的单元中，只需要引用这个聚合单元，就能直接访问所有被引入单元里的公开记录类型（即声明在interface部分的类型），无需单独引用每个源单元。示例：

   unit MainModule;
   
   interface
   
   uses
     System.SysUtils, AllRecordTypes; // 仅引用聚合单元
   
   type
     TMainModule = class
     private
       FUserRec: TUserRecord; // 直接使用Unit2中定义的记录类型
       FOrderRec: TOrderRecord; // 直接使用Unit3中定义的记录类型
     end;
   
   implementation
   
   end.
   

注意事项 #

• 必须确保目标单元中的记录类型是在interface部分声明的，只有公开可见的类型才能通过聚合单元被其他单元访问。
• 如果多个目标单元存在同名类型，编译时会出现冲突，此时需要通过单元限定名（如Unit2.TMyRecord）来明确指定使用哪个单元的类型，或者修改冲突类型的名称。
• 这种方式不会额外增加编译后的代码体积，Delphi编译器只会链接实际被使用到的单元内容，和单独引用每个单元的效率一致。

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