我尝试使用以下示例重现它,该示例使用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。其余的通过上面的代码完成。