Рисуем параболу по таблице значений Опции

[Наська]

Значица так - пользователь вводит значения х и а (у=а*х*х), табличка досчитывается и строица диаграммко.
Вот как я ето сделала

Код

procedure TForm1.Button3Click(Sender: TObject);
Var
  j,x,y,a: integer;
  {y,a: real;}
begin
  a := StrToInt(Edit1.Text);
  with Stringgrid1 do
  begin
    for j := 1 to RowCount do
    begin
      x := StrToInt(cells[1,j]);
      y := sqr(x)*a;
      Cells[0, j] := IntToStr(y);
    end;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  i: integer;
begin
  Chart1.Visible := true;
  for i := 1 to StringGrid1.RowCount do
  begin
    Chart1.Series[0].Add(StrToFloat(stringGrid1.Cells[0,i]),'',clred)
  end;
end;

Считает, рисует, но ругается. Шо делать????

[volvo]

Шо делать????

Как минимум - дать больше информации, например - как именно ругается? И когда это происходит? Потому что приведенный тобой кусок программы отрабатывает совершенно нормально (если в Grid-е есть одна фиксированная строка и все элементы 1-го столбца заполнены, а Chart уже содержит хотя бы одну серию)...

Добавлено через 1 мин.
Хотя нет... Не отрабатывает... Надо менять: циклы до RowCount - 1

[Наська]

Обязательно учту на счёт - больше инфы..в следущий раз

А вот за RowCount-1 бАльшое спасибо!
Бывает приклинит Затупила.
Спасиб!!!!!