Chart (Delphi). В чем ошибка?

[Chudo4258]

with chart1 do begin
For j:=1 to n do begin
  x:=0;
  for i:=0 to r do begin   
    AddSeries(Series[j]);
    Series[j].AddXY(x,u[i,j],'',clBlue);
    x:=x+dx;
  end;
end;
end;

На компоненте TCart нужно построить n графиков.

[Chudo4258]

Вернее должно быть так:

with chart1 do begin
For j:=1 to n do begin
  x:=0; 
  AddSeries(Series[j]);
  for i:=0 to r do 
   begin    
    Series[j].AddXY(x,u[i,j],'',clBlue);
    x:=x+dx;
   end;
end;
end;

но все равне не хочет строить графики.

[Chudo4258]

Надо было вот так:

with chart1 do begin
j:=0;
For j:=1 to StrToInt(Edit1.Text) do begin
  x:=0;
  AddSeries(TFastLineSeries.Create(Self));
  Series[j].SeriesColor:=clGreen;
  for i:=0 to r do begin
    Series[j].AddXY(x,u[i,j],'',0);
    x:=x+dx;
  end;
end;
end;

Тема закрыта.