|
#1
|
|||
|
|||
TChar
Здравствуйте, хочу вывести цифры из массива(Y) и построить график. Массив на 100 элементов, массив уже заполнен числами. График должен рисоваться по нажатию кнопки "Создать график". Но компилятор ругается на for. Вот код как это хотел сделать я:
Код:
procedure TForm1.Button7Click(Sender: TObject); for i := 1 to High 100 do begin Series(i).Add(Y[i]); end; |
#2
|
||||
|
||||
Цитата:
Потом ещё будет ругаться на неизвестную переменную "i". Стань на слово procedure, нажми F1 и посмотри в справке как правильно должны оформляться процедуры. |
#3
|
|||
|
|||
Цитата:
Теперь ругается на переименую i, как и говорил. с англ туго у меня. Гугл спрашивал, заводит в заблуждение больше чем справка. Код:
procedure TForm1.Button7Click(Sender: TObject); begin for i := 1 to 100 do begin Chart1.Series(i):=Add(Y[i]); end end; |
#4
|
|||
|
|||
Цитата:
с процедурой разобрался, компилятор не ругается, но при нажатии создать график завершает программу ошибкой Код:
procedure TForm1.Button7Click(Sender: TObject); begin for i := 1 to 100 do begin Chart1.Series[i].Add(Y[i]); end end; |
#5
|
||||
|
||||
Цитата:
ЗЫ TChart массив Series начинается с индекса [0]. (TChart.Series[0]) |
#6
|
|||
|
|||
Цитата:
не понял. То есть Код:
begin for i := 1 to 100 do begin Chart1.Series[1].Add(Y[i]); end end; но если это массив то.. я запутался. Тип данных который в массиве имеет значения? Просто у меня массив в реале, может интедж надо? |
#7
|
|||
|
|||
Цитата:
Или так писать? Код:
begin With Series1 do for i:=0 to 100 do begin Series1.AddXY(i, Y[i], '', clRed); end; end |
#8
|
||||
|
||||
Тему переименыйте в TChart
А то так в ступор вгоняет. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
|||
|
|||
Цитата:
не знаю как, не давно здесь =) |
#10
|
|||
|
|||
Все, правильный ответ нашел сам. Просто в начале в настройках 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; и оно работает правильно З.Ы. Последний раз редактировалось Nevil_White, 06.11.2012 в 13:50. |
#11
|
||||
|
||||
вообще пример есть c:\Program Files\Borland\Delphi7\Demos\TeeChart\teedemo.dpr
Пишу программы за еду. __________________ |
#12
|
|||
|
|||
Цитата:
Поздно, сам понял как и что =) Я просто динозавр в делфи =) |
#13
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Nevil_White (06.11.2012)
|
#14
|
|||
|
|||
Ну ты троль =) Спасибо, еще загляну, я с сортировкой методом слияния сейчас разбираюсь, если есть что на примете в помощь - брасай =)
|