如何正确扩展TMyQuery类以兼容TADOQuery的参数调用语法？

你的核心需求是让基于TFDQuery的自定义类TMyQuery，能够使用和TADOQuery完全一致的Parameters.ParamByName()语法访问参数。当前代码的问题在于误解了ADO参数访问的结构，以及属性定义的错误，以下是正确的实现方式：

正确的类扩展代码 #

type
  TMyQuery = class(TFDQuery)
  public
    // 直接将TFDQuery的Params属性映射为Parameters，匹配ADO的命名习惯
    property Parameters: TFDParams read Params;
  end;

为什么原有代码无法工作？ #

1. 语法结构误解：TADOQuery的Parameters是一个参数集合对象，通过ParamByName()方法访问参数，而非直接通过索引属性Parameters[AName]赋值。你的代码错误定义了索引属性，偏离了ADO的调用逻辑。
2. 方法参数错误：SetParamByName的参数设计不符合需求，你需要的是通过参数名定位并赋值，而非直接接收TParam对象，且索引属性的Write方法需要同时接收索引参数（参数名）和赋值内容。

使用示例 #

现在你可以完全按照TADOQuery的语法调用TMyQuery的参数：

var
  qryInsert: TMyQuery;
  recordCount: Integer;
begin
  qryInsert := TMyQuery.Create(nil);
  try
    qryInsert.Connection := FDConnection1;
    qryInsert.SQL.Text := 'INSERT INTO MyTable (ID, Name) VALUES (:ID, :Name)';
    
    recordCount := 100;
    // 和ADO完全一致的语法
    qryInsert.Parameters.ParamByName('ID').AsInteger := recordCount;
    qryInsert.Parameters.ParamByName('Name').AsString := 'Test Data';
    
    qryInsert.ExecSQL;
  finally
    qryInsert.Free;
  end;
end;

进阶扩展（如果需要自定义参数逻辑） #

如果需要对参数赋值做额外处理，可以添加辅助方法，比如封装一个直接赋值的方法：

type
  TMyQuery = class(TFDQuery)
  public
    property Parameters: TFDParams read Params;
    procedure SetParam(const AName: string; const Value: Variant);
  end;

procedure TMyQuery.SetParam(const AName: string; const Value: Variant);
begin
  Params.ParamByName(AName).Value := Value;
  // 这里可以添加自定义逻辑，比如参数校验、日志记录等
end;

调用时可以简化为：

qryInsert.SetParam('ID', recordCount);

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