Delphi 11.3迁移时Variant创建/添加JSON遇重载歧义编译错误

问题背景 #

将项目从Delphi 10.4迁移到11.3时，原有使用Variant类型调用JSON库方法的代码触发E2251重载歧义编译错误——编译器无法确定Variant应匹配哪个重载版本，典型场景包括TJSONNumber.Create和TJSONObject.AddPair的调用。

具体案例 #

案例1：TJSONNumber.Create(Variant)编译错误 #

代码示例：

function TestCreate;
var
  LValue: Variant;
  LJSON: TJSONNumber;
begin
  LValue := 100;
  LJSON := TJSONNumber.Create(LValue);
end;

编译错误：

[dcc64 Error] _Unit.pas(74): E2251 Ambiguous overloaded call to 'Create'
System.JSON.pas(435): Related method: constructor TJSONNumber.Create(const string);
System.JSON.pas(439): Related method: constructor TJSONNumber.Create(const Double);

案例2：TJSONObject.AddPair(string, Variant)编译错误 #

代码示例：

function TestAddPair;
var
  LValue: Variant;
  LJSON: TJSONObject;
begin
  LValue := 100;
  LJSON := TJSONObject.Create();
  LJSON.AddPair('Test', LValue);
end;

编译错误：

[dcc64 Error] _Unit.pas(77): E2251 Ambiguous overloaded call to 'AddPair'
System.JSON.pas(661): Related method: function TJSONObject.AddPair(const string; const Boolean): TJSONObject;
System.JSON.pas(651): Related method: function TJSONObject.AddPair(const string; const Double): TJSONObject;
System.JSON.pas(636): Related method: function TJSONObject.AddPair(const string; const string): TJSONObject;

无需逐个修改Variant调用的解决方案 #

1. 用类助手扩展JSON类（推荐） #

通过**类助手（Class Helper）**为目标JSON类添加接受Variant参数的重载方法，让编译器明确匹配逻辑，无需修改原有业务代码：

unit JSONVariantHelper;

interface

uses
  System.JSON, System.Variants;

type
  TJSONNumberHelper = class helper for TJSONNumber
  public
    constructor Create(const AValue: Variant); overload;
  end;

  TJSONObjectHelper = class helper for TJSONObject
  public
    function AddPair(const AName: string; const AValue: Variant): TJSONObject; overload;
  end;

implementation

{ TJSONNumberHelper }

constructor TJSONNumberHelper.Create(const AValue: Variant);
begin
  case VarType(AValue) of
    varInteger, varSingle, varDouble, varCurrency, varInt64:
      Self.Create(VarToDouble(AValue));
    varString, varUString:
      Self.Create(VarToStr(AValue));
    else
      raise EJSONException.Create('Unsupported Variant type for TJSONNumber');
  end;
end;

{ TJSONObjectHelper }

function TJSONObjectHelper.AddPair(const AName: string; const AValue: Variant): TJSONObject;
begin
  case VarType(AValue) of
    varBoolean:
      Result := Self.AddPair(AName, VarToBool(AValue));
    varInteger, varSingle, varDouble, varCurrency, varInt64:
      Result := Self.AddPair(AName, VarToDouble(AValue));
    varString, varUString:
      Result := Self.AddPair(AName, VarToStr(AValue));
    varNull:
      Result := Self.AddPair(AName, TJSONNull.Create);
    else
      raise EJSONException.Create('Unsupported Variant type for TJSONObject.AddPair');
  end;
end;

end.

在项目中引用该单元后，原有Variant调用代码可直接编译运行，编译器会自动匹配助手类的重载方法。

2. 调整编译器严格重载选项（临时应急） #

Delphi 11.x对重载匹配规则更严格，可通过修改编译器选项降低检查等级：

• 打开项目选项，进入Delphi Compiler > Hints and Warnings > Strict overloading，将其设为False。
  该方法会削弱类型检查严格性，可能引入潜在问题，仅适合临时快速验证。

3. RTTI批量代码替换（大型项目） #

若项目规模较大，可编写工具利用Delphi RTTI遍历所有单元，自动将Variant参数显式转换为对应类型（如Double、string）。操作前需做好代码备份，避免意外。

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