Delphi 11.0中无单元前缀调用同名函数失效问题咨询

我有两个单元UnitA和UnitB，各自都包含一个名为MyFunction的函数：

UnitA.pas #

unit UnitA;

interface

function MyFunction: string;

implementation

function MyFunction: string;
begin
  Result := 'Function from UnitA';
end;

end.

UnitB.pas #

unit UnitB;

interface

function MyFunction: string;

implementation

function MyFunction: string;
begin
  Result := 'Function from UnitB';
end;

end.

在主程序中，我可以通过单元名前缀指定调用哪个MyFunction：

MainProgram.pas #

program MainProgram;

uses
  UnitA, UnitB;

begin
  // 调用UnitA中的MyFunction
  WriteLn(UnitA.MyFunction);
  // 调用UnitB中的MyFunction
  WriteLn(UnitB.MyFunction);
  ReadLn;
end.

我记得以前无需单元前缀直接调用MyFunction时，Delphi会使用uses子句中最后一个单元的函数，但在Delphi 11.0中这种方法不生效，想了解是我的理解有误还是版本有变更？

你的记忆存在偏差，Delphi从始至终都不会默认选用uses子句最后一个单元的同名全局函数——当多个单元在interface部分导出同名标识符时，直接不加单元名前缀调用会触发编译歧义错误，编译器无法确定你要调用哪个单元的函数，这一点在Delphi 11和旧版本中没有变化。

可能混淆你记忆的是以下两种场景：

• 其中一个单元的MyFunction仅在implementation部分定义，未导出到interface：此时其他单元无法看到这个未导出的函数，只会调用另一个单元中导出的版本；
• 误将单元内部的局部标识符行为套用到全局导出标识符上：单元implementation部分的标识符仅对本单元可见，不会和其他单元的标识符产生冲突，但这和你示例中的导出函数场景完全不同。

正确的做法始终是通过单元名前缀明确指定要调用的函数，就像你示例中写的UnitA.MyFunction和UnitB.MyFunction，这是避免标识符冲突的标准方式。

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