delphi - TeeChart Pro 2014 for delphi 2007 Trend with bareries

Question

我正在使用 TDBChart 来显示 3 个条形数据。你能指出一个为每个酒吧添加趋势线的好例子吗？TeeChart 下载附带的示例根本没有帮助。

谢谢

Answer 1

在这里，您有一个简单的示例，使用随机值创建 3 个 TBarSeries，然后创建 3 个 TTrendFunction（及其各自的 TLineSeries）：

uses Series, CurvFitt;

procedure TForm1.FormCreate(Sender: TObject);
var
  tmpBar:TBarSeries;
  tmpTrend:TTrendFunction;
  tmpLine: TLineSeries;
  i, nSeries: Integer;
begin
  Chart1.Legend.Visible:=false;
  Chart1.View3D:=false;

  for i:=0 to 2 do
  begin
    tmpBar:=Chart1.AddSeries(TBarSeries) as TBarSeries;
    with tmpBar do
    begin
      Marks.Visible:=false;
      FillSampleValues;
    end;
  end;

  nSeries:=Chart1.SeriesCount;

  for i:=0 to nSeries-1 do
  begin
    tmpBar:=Chart1[i] as TBarSeries;
    tmpTrend:=TTrendFunction.Create(Self);
    tmpTrend.Period:=3;

    tmpLine:=Chart1.AddSeries(TLineSeries) as TLineSeries;
    with tmpLine do
    begin
      Color:=tmpBar.Color;
      SetFunction(tmpTrend);
      DataSource:=tmpBar;
    end;
  end;
end;