Почему Delphi выдаёт эту ошибку?

Question

[EvgenyApMr]

Пытаюсь вывести точки на график. Возникла ошибка, не находит значения.

Код:

var
 x,y: array[1..4] of real;

procedure TForm1.Button1Click(Sender: TObject);

var
 i: byte;

begin

 //задание значений функции arctg
 for i:=1 to 4 do
 begin
 x[i] := i;
 y[i] := arctan(x[i]);
 end;
 //вывод опорных точек
 for i:=1 to 4 do
 chart1.SeriesList[0].AddXY(x[i], y[i]);
 //вывод функции arctg
 for i:=25 to 100 do
 chart1.SeriesList[1].AddXY(i/25, arctan(i/25));
end;

Answer 1

[Hemul GM]

Ты добавь серию данных через дизайнер (судя по всему две серии), а потом уже добавляй в них точки

Comments

[EvgenyApMr]

Спасибо, помогли!

[EDIsaev]

через дизайнер совсем не обязательно, межно и в runtime создать. Будет более наглядно и при изменении количества не нужно будет снова лезть в дизайнер

Answer 2

[OCTAGRAM]

Список, у которого можно выйти за границу, я в коде вижу только один, chart1.SeriesList. Если это так, надо в дизайнере форм настроить chart1, чтоб было не меньше двух семейств точек

Comments

[EvgenyApMr]

Спасибо за совет!