如何在TChart中动态加入series？谢谢。

Question

rt，是条形图。

Answer 1

var
    Series2: TBarSeries;
    i:integer;
begin
    Series2:=TBarSeries.Create(Owner);
    Chart1.AddSeries(Series2);
    Series2.Title:='hahahaha';
    for i:=0 to 100 do
        Series2.AddXY(i,i+1,'',clRed);
.................................

Answer 2

请看这段代码有什么问题？结果不对啊。i已赋初值为0。  Series2 := TLineSeries.Create(nil);
  Chart1.AddSeries(Series2);  Series2.AddXY( i, 150,'Data21',clRed);
  Series2.AddXY( i, 100,'Data22',clRed);
  Series2.AddXY( i, 250,'Data23',clRed);  i := i + 1;

Answer 3

Series2 := TLineSeries.Create(Owner);
Series2 := TLineSeries.Create( Chart1 );
结果都不对

Answer 4

http://www.china-mp.com/bbs/UploadFile/2006-2/200621715549780.jpg
i等于0、1、2、3的情况。

Answer 5

Series2 := TLineSeries.Create(nil);
  Chart1.AddSeries(Series2);  Series2.AddXY( i, 150,'Data21',clRed);
  Series2.AddXY( i, 100,'Data22',clRed);
  Series2.AddXY( i, 250,'Data23',clRed);  i := i + 1;
///////////
????????????????????????????????
看不懂，代码里为什么i不变？
i代表了横坐标。仔细检查你的逻辑，一定是逻辑上的问题。

Answer 6

procedure TForm1.Button3Click(Sender: TObject);
begin
  MySeries := TLineSeries.Create( nil);
  Chart1.AddSeries(MySeries);
  MySeries.AddXY( 0, 150,'Data21',clRed);
  MySeries.AddXY( 1, 100,'Data22',clRed);
  MySeries.AddXY( 2, 250,'Data23',clRed);
end;
不管点多少次按钮，图像均如下：\        /
 \      /
  \    /
   \  /
    \/