我試着使用訂單表中隨附的TeeChart安裝的TeeChart Pro數據庫下面的例子來複制它,然後按一個刪除該系列中的按鈕時,我沒有得到任何錯誤。
uses Bde.DBTables, VclTee.Series;
procedure TForm1.FormCreate(Sender: TObject);
var Table1: TTable;
begin
Table1:=TTable.Create(Self);
with Table1 do
begin
DatabaseName:='TeeChart Pro Database';
TableName:='orders';
end;
DBChart1.View3D:=false;
DBChart1.Legend.Visible:=false;
with DBChart1.AddSeries(TLineSeries) as TLineSeries do
begin
DataSource:=Table1;
XValues.DateTime:=true;
XValues.ValueSource:='SALEDATE';
YValues.ValueSource:='AMNTPAID';
end;
Table1.Active:=true;
end;
procedure TForm1.BRemoveFirstSeriesClick(Sender: TObject);
begin
if DBChart1.SeriesCount>0 then
DBChart1.RemoveSeries(DBChart1[0]);
end;
我只在設計時在表單上添加了TDBChart和TButton。剩下的就是上面的代碼。
謝謝,看起來這是我的設置問題,因爲這對我有用。 –