Delphi XE 多单元命名空间问题

Question

Delphi XE 多单元命名空间问题

11

我正在阅读 Delphi XE 中的 RAD Studio 文档，以下是一些文字。

[ Delphi 参考 -> Delphi 语言指南 -> 程序和单元 -> 使用命名空间 -> 搜索命名空间 -> 多单元命名空间 ]

多单元命名空间

如果单元声明引用了相同的命名空间，则多个单元可以属于同一个命名空间。例如，可以创建两个文件 unit1.pas 和 unit2.pas，拥有以下单元声明：

// in file 'unit1.pas' 
unit MyCompany.ProjectX.ProgramY.Unit1 

// in file 'unit2.pas' 
unit MyCompany.ProjectX.ProgramY.Unit2

在这个例子中，命名空间MyCompany.ProjectX.ProgramY逻辑上包含了unit1.pas和unit2.pas中所有的接口符号。

在命名空间中，符号名称必须是唯一的，跨越命名空间中的所有单元。在上面的例子中，如果Unit1和Unit2都定义了一个名为mySymbol的全局接口符号，则会出现错误。

我进行了测试。下面是代码。

----------------------------------------------------------------- 
program Project1; 

{$APPTYPE CONSOLE} 

uses 
  SysUtils, 
  Lib.A in 'Lib.A.pas', 
  Lib.B in 'Lib.B.pas'; 

begin 
  WriteLn ( TestValue ) ; 
  ReadLn ; 
end. 
----------------------------------------------------------------- 
unit Lib.A; 

interface 
  const TestValue : Integer = 10 ; 
implementation 

end. 
----------------------------------------------------------------- 
unit Lib.B; 

interface 
  const TestValue : Integer = 10 ; 
implementation 

end.

这不是错误。为什么？我不明白。

- user754458

如果您在Project1中仅使用SysUtils，Lib，并在Lib.B中执行TestValue：Integer = 20，然后在Project1中执行WriteLn(TestValue)，会发生什么？ - Andreas Rejbrand

我想Codegear曾经有一些不规则的计划，想要在Delphi for Win32上扩展.Net命名空间的概念，但这些计划从未得以实现。在Delphi中并没有多单元命名空间，很难说上述文档是关于什么的。 - kludg

2个回答

0

在 Delphi.NET（Prism 之前）中：单元名称 = 命名空间。那是他们在那个时候使用的方式 - 在 dotNET 中，一个单元确实是一个命名空间（包括在生成的 IL 中作为这样出现）。

在本地 Delphi 中，我没有看到区别（如果真的存在的话）。

- Fabricio Araujo

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- gabr · Accepted Answer

您的代码与文档不符。文档明确指出，'unit MyCompany.ProjectX.ProgramY.Unit1' 的文件名应为unit1.pas，而不是MyCompany.ProjectX.ProgramY.Unit1。

然而，我认为这个功能根本没有被实现。如果我将您的代码更改为将第一个单元存储在a.pas文件中，将第二个单元存储在b.pas文件中，则单元根本无法编译，错误信息为

[DCC Error] A.pas(1): E1038 Unit identifier 'Lib.A' does not match file name

（正如我所预期的那样。）

在您的情况下，不存在冲突，因为您始终可以使用“冲突”的全名 - Lib.A.TestValue和Lib.B.TestValue。