Как обратиться к чарту по номеру?

← →
cvg (2007-09-25 16:39) [0]

Hi мастера, проблема такая:

Программа рисует некие графики на двух чартах. На примере одного из чартов Я написал и отладил некую функцию, которая должна выполнять абсолютно одинаковые действия для графиков первого и второго чартов. Знаю, что к графику в пределах чарта можно обратиться по номеру, например: Chart1.Series[n].Count или Chart1.SeriesList[n].Count. А как по номеру обратиться к чарту?

← →
Lacmus © (2007-09-25 16:49) [1]

Chart1, Chart2 ?

← →
Kolan © (2007-09-25 16:49) [2]

Варианта два(я предлогаю).

Плохой  зато точнее отвечает на вой вопрос.
Найти чарт(и любой другой компонент) можно используя Components[I], ComponentCount

Выриант 2. Лучьше:

Сделай функцию:

Draw(Serie: TSeries; <Твои данные>);

И подставляй в неё любые серии любых чартов. В данном случае:
for I := 0 to Chart1.SeriesCount  1 do begin Draw(Chart1.Series[I], &#133); Draw(Chart2.Series[I], &#133); end

ЗЫ
Ессно в справку я не глядел, SeriesCount придумал, но идея надеюсь ясна&#133

← →
cvg (2007-09-25 17:35) [3]

2 Kolan

Тогда мне бы хотелось (поближе к реальности) что-то вроде:
function DO_IT(S:TSeries,<blah-blah-blah>):integer; begin for i := S.Count - 1 downto 0 do <blah-blah-blah> end; ... DO_IT(Series11,.....);

Интересно, получится ли так...

← →
cvg (2007-09-25 17:37) [4]

Подразумевается, что Series могут быть из обоих чартов!

← →
cvg (2007-09-25 17:44) [5]

Мдя, а тип TSeries отсутствует в этом языке :(

← →
Kolan © (2007-09-25 17:49) [6]

> Мдя, а тип TSeries отсутствует в этом языке :(

Подключи нужный модуль.

Подразумевается, что Series могут быть из обоих чартов!
Да из каких угодно.

Функция будет где-то такая:
TDoubleArray = array of Double;
function DrawSmth(Serie: TSerie; Arr: TDoubleArray); begin if Assigned(Serie) then for I := Low(Arr) to High(Arr) do Serie.AddY(Arr[I]); end;

← →
cvg (2007-09-25 17:57) [7]

2 Kolan

Знать бы еще, какой... Кстати. в хелпе про тип TSerie тоже ничего нет.

← →
Kolan © (2007-09-25 18:16) [8]

> TSerie

В Delphi 7 точно есть. TSeries, кстати&#133 я же пишу пример, сделать из него рабочий ког  ваша задача.

> Знать бы еще, какой

А какие нужно. Сформулируйте четко задачу&#133

Например, «нарисовать на все что лежат на форме&#133»

← →
cvg (2007-09-26 07:40) [9]

Ну, пока что мне хотелось бы знать, какой точно тип у SeriesN (N - число) и можно ли будет его использовать, подставляя вместо SeriesN. Неапример, если переменная S этого типа, то пройдет ли S.AddXY(...)?

← →
Elen © (2007-09-26 08:47) [10]

> cvg

А что мешает сделать массив типа TChart?

← →
cvg (2007-09-26 09:20) [11]

2 Elen

Ну, можно, конечно... Только в данный момент мне уже гораздо больше хочется узнать тип у Series и реализуемость S.AddXY(...).

> Ну, пока что мне хотелось бы знать, какой точно тип у SeriesN

Посмотри в справке про is

> Неапример, если переменная S этого типа, то пройдет ли S.AddXY(&#133)
> ?

if Serie1 is TineSeries then {Подойдет.}

> TineSeries

TLineSerie

> У слова series формы ед. и мн. числа совпадают. Как и у
> слова species, например :)

Блин, а я думаю чегой-то они их так называют(вл мн. числе). А посмотреть не догодался&#133 Благодарю.

Как обратиться к чарту по номеру? Найти похожие ветки