在 Teechart Pro Delphi 中重置系列点的问题

Question

我使用 Teechart pro VCL v2018.24.18 32 位。 我编写了一些代码，从输入数据绘制图表，用户可以将其保存在文件或数据库中。

但是，我有一个问题。此过程可能会重复多次，我需要创建一个新项目。我在接收新的输入数据之前重置了序列值：

if DbChart1.SeriesCount <> 0 then     // clear all series data
begin
for dp := 0 to DbChart1.SeriesCount-1   do
begin
DbChart1.Series[dp].Clear;
DbChart1.Series[dp].XValues.FillSequence;
DbChart1.Series[dp].YValues.FillSequence;
dbchart1.Series[dp].CleanupInstance;
end;
end;
Dbchart1.BottomWall.EndPosition := 0;
Dbchart1.LeftWall.EndPosition := 0;
Dbchart1.DepthAxis.Maximum := 0;

除最后一个点外，所有系列点均已删除！ 我希望连续剧干净，就像程序第一次运行时一样。我该怎么做？

Answer 1

问题解决了。 系列的最后一点不删除(为什么？也许是一个错误(.首先我使用另一个代码来删除点，但问题没有解决。看看这个代码：

With Dbchart1.Series[0] Do
Begin
dec:=series0.Count;
if dec<>0 then
begin
Series0.Delete(0,dec,true);
end;
End;

但是通过重复代码，问题解决了：

With Dbchart1.Series[0] Do
Begin
dec:=series0.Count;
label44.Caption := inttostr(dec);
if dec<>0 then
begin
Series0.Delete(0,dec,true);
dec:=series0.Count;
Series0.Delete(0,dec,true);
end;
End;