如何更新dbchart图表

Question

procedure TForm6.Button1Click(Sender: TObject);
var S:TlineSeries;
begin
dbchart1.Title.Text.Text:=datetostr(now)+'日消费情况图标';
dbchart1.Title.Font.Size:=16;
s:=TlineSeries.Create(dbchart1);
s.Clear;
s.ParentChart:=dbchart1;
s.DataSource:=datam.ADOQuery7;
s.XLabelsSource:='消费金额';
s.YValues.ValueSource:='积分';
end;
用上面的程序,点击按钮,显示图表曲线,再点击又创建了一个新的Series,点几次创建几次,我想只让它创建一次,并且每次点击都对图表进行更新,以显示最新的数据曲线,改如何做,请各位指教

Answer 1

tdbchar1.Repaint  重新刷新曲线