请教Tchart 动态建LINE,自己写了下,不能用,请指正,谢谢

Question

---------------------------------------------//全局变量，共24条线
var
Series:array[0..23] of TFastLineSeries; 
---------------------------------------------
//动态建线
procedure TForm1.btn1Click(Sender: TObject);
var
  i,k:Integer;
begin
  K:=StrToInt(edt1.Text);
  for i:= 0 to k-1 do
  begin
   Series[i]:=TFastLineSeries.Create(nil);
  end;
end;
--------------------------------------------------
//将建的线在CHART上使用（报错了）
procedure TForm1.btn2Click(Sender: TObject);
var
  J:integer;
begin
  Chart1.Series[1].AddXY(J, 100, '你妹');
  inc(J);
end;最大24根线，但是可能有的时候不会全部使用到，所以想用几根线就去动态建几根，自己写了上面的代码测试了下，发现不能用不知道哪位帮忙给修改下，或有现成的代码给参考下，谢谢！

Answer 1

Series:array of TFastLineSeries; 用几根就分配几个
SetLength(Series,n)

Answer 2

Series[i]:=TFastLineSeries.Create(nil);nil 应该改为 Chart

Answer 3

能稍微写详细点吗？动态建了以后如何在CHART中去使用建的线

Answer 4

改了 Series[i]:=TFastLineSeries.Create(Chart1);使用还是报错

Answer 5

edt1.Text 你输入是几啊 如果是1
你用Chart1.Series[1].AddXY(J, 100, '你妹'); 肯定报错
改成Chart1.Series[0].AddXY(J, 100, '你妹');试试

Answer 6

输的12
按不说的改了  Chart1.Series[0].AddXY(J, 100, '你妹');
输1 还是报错！

Answer 7

完整代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;type
  TForm1 = class(TForm)
    Chart1: TChart;
    btn1: TButton;
    btn2: TButton;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Series:array[0..23] of TFastLineSeries;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  i,k:Integer;
begin
  K:=StrToInt(edt1.Text);
  for i:= 0 to k-1 do
  begin
   Series[i]:=TFastLineSeries.Create(Chart1);
  end;
end;procedure TForm1.btn2Click(Sender: TObject);
var
  J:integer;
begin
  Chart1.Series[0].AddXY(J, 100, '你妹');
  inc(J);
end;end.

Answer 8

试试吧
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;type
  TForm1 = class(TForm)
    Chart1: TChart;
    btn1: TButton;
    btn2: TButton;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Series:array[0..23] of TFastLineSeries;
  J:integer;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  i,k:Integer;
begin
  K:=StrToInt(edt1.Text);
  for i:= 0 to k-1 do
  begin
   Series[i]:=TFastLineSeries.Create(nil);
   Series[i].ParentChart:= Chart1;
  end;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
  Chart1.Series[0].AddXY(J, 100, '你妹');
  inc(J);
end;end.