其中程序的变量名: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;

解决方案 »

  1.   

    怎么删除不了,是代码执行了没效果,还是access violation之类的错误
      

  2.   

    RemoveSeries没有问题,还是你得代码问题
      

  3.   

    Chart1.SeriesList 
    每次删除中间的结点,它都会重新排序,意味差有可能你只有第一次的删除是对的  for I := 0 to 10 do
      begin
        chart1.AddSeries(TLineSeries.Create(Chart1));
        chart1.Series[i].Tag := i;
      end;后面用Tag来作判断作删除动作
      

  4.   

    DBChart1.Series[0].DataSource:=nil;
        DBChart1.Series[0].XLabelsSource:='';
        DBChart1.Series[0].YValues.ValueSource:='';//清空