Delphi 12.1升级遇IsEmpty函数调用歧义，求编译器拦截方案

你的问题根源在于：with mQuery, mQuery.SQL do代码块中，IsEmpty同时存在于TIBOQuery（继承自TDataSet）和TStrings（SQL属性的类型）的方法列表里。Delphi 12.1新增TStrings.IsEmpty后，编译器会优先调用最后进入with块的对象的方法（也就是mQuery.SQL的IsEmpty），导致原本期望调用数据集的逻辑偏离预期。

让歧义调用直接编译失败的编译器机制 #

Delphi提供了专门的编译指令来处理这类重载歧义：

• 默认情况下{$WARN AMBIGUOUS_OVERLOAD ON}是开启的，但仅会输出警告，不会阻止编译。若要让歧义触发编译错误，可将该警告升级为错误：
  1. 全局生效：打开IDE的Tools > Options > Delphi Options > Compiler > Warnings，找到Ambiguous overload选项，将其改为Error，整个项目的重载歧义调用都会直接编译失败。
  2. 局部生效：如果不想全局修改，可在特定单元开头添加指令：

     {$WARN AMBIGUOUS_OVERLOAD ERROR}
     

     要恢复默认规则，使用：

     {$WARN AMBIGUOUS_OVERLOAD DEFAULT}
     

额外的代码修复建议 #

除了编译器设置，直接修改代码消除歧义是更彻底的方案，适合批量处理：

• 移除with块，显式指定调用对象：Result := mQuery.Active and not mQuery.IsEmpty;
• 若保留with块，显式指定数据集的IsEmpty：Result := Active and not mQuery.IsEmpty;（Active属于mQuery无歧义，mQuery.IsEmpty明确指向数据集方法）

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