DBchart 动态添加fastline

Question

ADOquery 查询一次SQL数据结果就在DBchart中生成一个fastline， 若查询N次自动生成N个曲线，请问这个循环怎么写？

Answer 1

让阿豪来帮你解答，本回答参考chatgpt3.5编写提供，如果还有疑问可以评论或留言

可以使用for循环，根据需要查询的次数N，执行N次ADOquery并将结果存入数据集中，然后将每次查询的结果数据集绑定到一个DBchart的fastline中，从而生成N个曲线。 示例代码：

var
  i: integer;
  qry: TADOQuery;
  ds: TDataSet;
  series: TFastLineSeries;
begin
  // 循环查询N次
  for i := 1 to N do
  begin
    qry := TADOQuery.Create(nil);
    try
      // 执行SQL查询语句
      qry.Connection := dbConnection; // dbConnection是数据库连接组件
      qry.SQL.Text := 'SELECT * FROM table' + IntToStr(i);
      qry.Open;
      ds := qry; // 将查询结果赋值给数据集
      // 将数据集绑定到DBchart的fastline中
      series := TFastLineSeries.Create(DBChart1);
      series.DataSet := ds;
      series.XSource := 'xField';
      series.YSource := 'yField';
      DBChart1.AddSeries(series);
    finally
      qry.Free;
    end;
  end;
end;