其中程序的变量名:chartJSJG:Tchart ;
lsvLineSelected:TlistView;
series的个数与lsvLineSelected中记录数相同,要把选中的lsvLineSelected记录取消时,它所对应的series也会自动删除
但是只能取消记录,series删除不了。代码如下:
for i := self.lsvLineSelected.Items.Count - 1 downto 0 do
begin if self.lsvLineSelected.Items.Item[i].Caption=Item.Caption then
begin
if Self.ChartJSJG.SeriesCount>0 then
begin
Self.ChartJSJG.RemoveSeries(Series[i]) ;
end;
self.lsvLineSelected.Items.Delete(i);
end;
end;
lsvLineSelected:TlistView;
series的个数与lsvLineSelected中记录数相同,要把选中的lsvLineSelected记录取消时,它所对应的series也会自动删除
但是只能取消记录,series删除不了。代码如下:
for i := self.lsvLineSelected.Items.Count - 1 downto 0 do
begin if self.lsvLineSelected.Items.Item[i].Caption=Item.Caption then
begin
if Self.ChartJSJG.SeriesCount>0 then
begin
Self.ChartJSJG.RemoveSeries(Series[i]) ;
end;
self.lsvLineSelected.Items.Delete(i);
end;
end;
每次删除中间的结点,它都会重新排序,意味差有可能你只有第一次的删除是对的 for I := 0 to 10 do
begin
chart1.AddSeries(TLineSeries.Create(Chart1));
chart1.Series[i].Tag := i;
end;后面用Tag来作判断作删除动作
DBChart1.Series[0].XLabelsSource:='';
DBChart1.Series[0].YValues.ValueSource:='';//清空