如何避免TParams调用ParseSQL解析SQL时生成重复同名参数？

TParams.ParseSQL重复参数问题解决方案说明 #

标准VCL/RTL自带的TParams.ParseSQL方法没有原生开箱即用的去重参数配置，该行为属于框架的固有设计：方法底层逻辑是逐字符扫描SQL语句，每识别到一个:参数名标记就直接新增TParam对象插入列表，不会预先检查是否存在同名参数，因此SQL中多次引用同一参数名必然生成重复参数项。

你提到的TUniQuery不会出现重复参数的特性，本质是UniDAC组件在封装ParseSQL调用后自行实现了去重逻辑，原生TParams本身还是会生成重复项，只是组件层自动做了合并处理，通用实现逻辑是调用ParseSQL后遍历参数列表，按不区分大小写的参数名规则去重，保留第一个出现的参数实例，删除后续重复项，执行赋值时统一按名称匹配。

如果不想自行维护去重逻辑，可选择两种替代方案：

• 直接使用数据访问组件层的SQL解析接口，比如UniDAC系列组件的内置解析方法，原生自带参数去重能力，无需额外处理
• 如果必须使用原生TParams，可以将去重逻辑封装为公用扩展方法，示例逻辑参考：

procedure TParamsHelper.ParseSQLWithoutDup(const SQL: string; DoCreate: Boolean);
var
  I: Integer;
  ExistedParam: TParam;
begin
  ParseSQL(SQL, DoCreate);
  // 倒序遍历删除重复项，避免索引错乱
  for I := Count - 1 downto 0 do
  begin
    ExistedParam := FindParam(Items[I].Name);
    if Assigned(ExistedParam) and (ExistedParam.Index < I) then
      Delete(I);
  end;
end;

该扩展方法可以直接替换原有ParseSQL调用，无需每次手动编写去重逻辑。

补充说明：部分数据库驱动本身支持同名参数自动匹配，即使TParams存在重复项，只要给所有同名参数赋相同的值也可以正常执行，但会产生不必要的参数赋值开销，提前去重是更稳妥的实现方式。

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