delphi 语法相同的TFDQuery和TADOQuery

sf6xfgos 于 9个月前发布在其他

关注(0)|答案(1)|浏览(123)

我想用属性参数扩展类TMyQuery。我想用和使用TADOQuery相同的语法调用TMyQuery。如何正确扩展我的类？

///  new class    
type TMyQuery = class (TFDQuery)
      private
    
        procedure SetParamByName(const Param: TParam);
       public
       ///  here i fail ! 
       property Parameters[const AName: string]: TParam  Write SetParamByName;
    end;
    
procedure TMyQuery.SetParamByName(const Param: TParam);
begin
   // Params.ParamByName(AName). ???  ;
end;    
///  code example    
...
...
///  calling FFDQuery with same syntax like ADO Query     
qryInsert.Parameters.ParamByName('ID').AsInteger := recordCount;

字符串

delphi

来源：https://stackoverflow.com/questions/77638606/tfdquery-and-tadoquery-with-identical-syntax

1条答案

按热度按时间

cygmwpex1#

你可以试试这样的：

TMyQuery = class (TFDQuery)
  private
    procedure SetParamByName(const AName: string; const Value: TParam);
  public
    /// ...
    property Parameters[const AName: string]: TParam  Write SetParamByName;
  end;

字符串
在执行该程序时，请尝试以下操作：

procedure TMyQuery.SetParamByName(const AName: string; const Value: TParam);
begin
  inherited ParamByName(AName).Value := Value.Value;
end;

型
你需要这个吗？

赞(0）回复(0）举报 9个月前

我来回答

delphi 语法相同的TFDQuery和TADOQuery

1条答案

相关问题

热门标签

最新问答