用於delphi 2007的TeeChart Pro 2014用於酒吧的趨勢

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;