通过按日期分组从一个表中创建多折线图系列

Question

我有一个来自 dbgrid 显示的查询的动态表，看起来像这样

code | Name | Date      | Time |Score
1    | Alex | 01-Feb-14 | 0600 |5
1    | Alex | 01-Feb-14 | 0700 |7
1    | Alex | 01-Feb-14 | 0800 |8
1    | Alex | 02-Feb-14 | 0600 |7
1    | Alex | 02-Feb-14 | 0800 |8
1    | Alex | 02-Feb-14 | 0900 |8
1    | Alex | 03-Feb-14 | 0700 |7
1    | Alex | 03-Feb-14 | 0800 |5
1    | Alex | 03-Feb-14 | 0900 |8

查询的输入是code=1, date1=01-feb-14, date2=03-feb-14

如何制作具有多个系列的折线图，按日期分组，xlabel = time 和 y value = score？ 我的伪代码是：

for date1 to date 2
chart1.addseries
  for time=lowesttime to highesttime do
  begin
  series.xlabel = time
  series.yvalue = score
  end

它看起来像这样

Answer 1

您应该手动为每个日期创建系列。因此，您应该迭代您的数据集，每次遇到新日期时，您都应该创建新系列，将其添加到图表中并添加值。

如果您的数据集未排序，您可以使用临时字典（TDcitionary<integer, TLineSeries> from Generics.Collections）来存储系列参考。

DateTime 值实际上是一个double，其中 int 部分表示日期。因此，每个日期您都有自己的密钥。您还可以为其分配系列Tag 属性以供进一步使用。

在填充系列值之前和之后使用BeginUpdate() 和EndUpdate() 方法。 创建系列时，请使用图表参考作为所有者。下次你清除图表中的所有系列时，它们将成功销毁。

这是一个示例代码：

procedure TForm7.UpdateSeries();
var sd : TDictionary<integer, TLineSeries>;
    s : TLineSeries;
    d : TDate;
    dInt : integer;
    x : double;
    xlabel : string;
    i : integer;
begin
    DataChart.SeriesList.Clear();

    sd := TDictionary<integer, TLineSeries>.Create();
    try
        while not query.eof do begin
            d := query.FieldByName('Date').AsDateTime;
            dInt := round(d);

            if not sd.ContainsKey(dInt) then begin
                s := TLineSeries.Create(DataChart);
                s.Tag := dInt;  {for further use}
                DataChart.AddSeries(s);
                s.ParentChart := DataChart;
                s.Title := DateToStr(query.FieldByName('date').AsDateTime);
                s.Color := Random($FFFFFF);

                s.BeginUpdate();

                sd.AddOrSetValue(dInt, s);
            end
            else s := sd[dInt];

            //x value and label
            x := query.FieldByName('time').AsDateTime;
            xlabel := Format('Label %f', [x]);

            s.AddXY(x, query.FieldByName('score').AsInteger, xlabel);

            query.Next();
        end;
    finally
        for i := 0 to DataChart.SeriesCount - 1 do begin
            DataChart.Series[i].EndUpdate();
        end;

        sd.Free();
    end;
end;

作为问题目标Delphi-7，它不知道generics。所以在这种情况下，最简单的方法是按日期（ORDER BY date）对数据集进行排序。然后每次你遇到新的日期，你应该创建新的系列。首先需要初始化dInt := 0，然后与FieldByName('date')进行比较。如果它发生了变化，您应该创建新系列。

    dInt := 0;
    try
        while not query.eof do begin
            d := query.FieldByName('Date').AsDateTime;
            if round(d) <> dInt then begin
                dInt := round(d);
                s := TLineSeries.Create(DataChart);
                ....