[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
А то так в ступор вгоняет.

[Nevil_White]

Сообщение от M.A.D.M.A.N.

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

не знаю как, не давно здесь =)

[Nevil_White]

Все, правильный ответ нашел сам. Просто в начале в настройках TChart нужно указать Series1 и потом писать код:

Код:

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

и оно работает правильно

З.Ы.

[NumLock]

вообще пример есть c:\Program Files\Borland\Delphi7\Demos\TeeChart\teedemo.dpr

[Nevil_White]

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

вообще пример есть c:\Program Files\Borland\Delphi7\Demos\TeeChart\teedemo.dpr

Поздно, сам понял как и что =) Я просто динозавр в делфи =)

[NumLock]

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

Я просто динозавр в делфи =)

тогда самое время http://www.delphisources.ru/forum/sh...ad.php?t=21041 повторить

[Nevil_White]

Ну ты троль =) Спасибо, еще загляну, я с сортировкой методом слияния сейчас разбираюсь, если есть что на примете в помощь - брасай =)