Delphi TChart这么用啊

Question

chart.SeriesList.Series[0].Clear;
还有
chart.Series[0].Clear;
还有
chart.Series[0].Add(lltjquery.RecordCount,copy(kkmc[j],5,(Length(kkmc[j])-2)),clRed);全都报错啊报list index out of boundsps:这个属于vcl么?刚刚使用Delphi,不懂,请大家多多包涵

Answer 1

你还没有添加Series吧,那样访问肯定出错,双击chart组件,添加Series

Answer 2

  //删除所有曲线
  while Chart1.SeriesCount > 0 do
  begin
    Chart1.Series[0].Free;
  end;
  //创建曲线
    MySeries := TFastLineSeries.Create(nil);
    MySeries.ParentChart := chart1;
    MySeries.Title :='abc'
    MySeries.AddY(1.11, 2008-01-01);
    MySeries.AddY(1.12, 2008-01-02);
    MySeries.AddY(1.13, 2008-01-03);

Answer 3

给你一段参考代码procedure TForm1.Button1Click(Sender: TObject);
var
  chart:TChartSeries;
  se1:TBarSeries;
  i:Integer;
begin
  self.Chart1.SeriesList.Clear;
  self.Chart1.Title.Text.Clear;
  i:=self.Chart1.SeriesCount;
  self.Label1.Caption:=IntToStr(i);
  Self.Chart1.Title.Text.Add('趋势图');
  se1:=TBarSeries.Create(Self);
  se1.Name:='series2';
  se1.Title:='比例图';
  se1.AddBar(300,'一月份',clBlue);
  se1.AddBar(400,'二月份',clRed);
  se1.ParentChart:=self.Chart1;
  i:=self.Chart1.SeriesCount;
  self.Label2.Caption:=IntToStr(i);
end;

Answer 4

确实是没有添加Series
谢谢大家啊
今天刚刚接触的Delphi
还会有很多问题的`````