[Nevil_White]

Здравствуйте, хочу вывести цифры из массива(Y) и построить график. Массив на 100 элементов, массив уже заполнен числами. График должен рисоваться по нажатию кнопки "Создать график". Но компилятор ругается на for. Вот код как это хотел сделать я:

Код:

procedure TForm1.Button7Click(Sender: TObject);
  for i := 1 to High 100 do begin
    Series(i).Add(Y[i]);
  end;

[poli-smen]

Сообщение от Nevil_White

Здравствуйте, хочу вывести цифры из массива(Y) и построить график. Массив на 100 элементов, массив уже заполнен числами. График должен рисоваться по нажатию кнопки "Создать график". Но компилятор ругается на for. Вот код как это хотел сделать я:

Код:

procedure TForm1.Button7Click(Sender: TObject);
  for i := 1 to High 100 do begin
    Series(i).Add(Y[i]);
  end;

Процедура неправильно оформлена. Тело процедуры должно заключаться в begin..end.
Потом ещё будет ругаться на неизвестную переменную "i".
Стань на слово procedure, нажми F1 и посмотри в справке как правильно должны оформляться процедуры.

[Nevil_White]

Сообщение от poli-smen

Процедура неправильно оформлена. Тело процедуры должно заключаться в begin..end.
Потом ещё будет ругаться на неизвестную переменную "i".
Стань на слово procedure, нажми F1 и посмотри в справке как правильно должны оформляться процедуры.

Теперь ругается на переименую i, как и говорил. с англ туго у меня. Гугл спрашивал, заводит в заблуждение больше чем справка.

Код:

procedure TForm1.Button7Click(Sender: TObject);
  begin
  for i := 1 to 100 do begin
    Chart1.Series(i):=Add(Y[i]);
  end
  end;

[Nevil_White]

Сообщение от poli-smen

Процедура неправильно оформлена. Тело процедуры должно заключаться в begin..end.
Потом ещё будет ругаться на неизвестную переменную "i".
Стань на слово procedure, нажми F1 и посмотри в справке как правильно должны оформляться процедуры.

с процедурой разобрался, компилятор не ругается, но при нажатии создать график завершает программу ошибкой

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  for i := 1 to 100 do
  begin
    Chart1.Series[i].Add(Y[i]);
  end
end;

[YVitaliy]

Chart1.Series[i]

здесь получается, что ты для 1го графика применяешь 1 точку, тоесть у тебя будто 100 графиков по 1й точке на график. В данном случае Series должен быть один, с определенным индексом.

ЗЫ TChart массив Series начинается с индекса [0]. (TChart.Series[0])

[Nevil_White]

Сообщение от YVitaliy

здесь получается, что ты для 1го графика применяешь 1 точку, тоесть у тебя будто 100 графиков по 1й точке на график. В данном случае Series должен быть один, с определенным индексом.

ЗЫ TChart массив Series начинается с индекса [0]. (TChart.Series[0])

не понял. То есть

Код:

begin
  for i := 1 to 100 do
  begin
    Chart1.Series[1].Add(Y[i]);
  end
end;

но если это массив то.. я запутался.

Тип данных который в массиве имеет значения? Просто у меня массив в реале, может интедж надо?

[Nevil_White]

Сообщение от YVitaliy

здесь получается, что ты для 1го графика применяешь 1 точку, тоесть у тебя будто 100 графиков по 1й точке на график. В данном случае Series должен быть один, с определенным индексом.

ЗЫ TChart массив Series начинается с индекса [0]. (TChart.Series[0])

Или так писать?

Код:

begin
With Series1 do
for i:=0 to 100 do
  begin
   Series1.AddXY(i,  Y[i], '', clRed);
  end;
end

[M.A.D.M.A.N.]

Тему переименыйте в TChart
А то так в ступор вгоняет.