Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.21;
Скачать: CL | DM;

Вниз

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

 
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 &#151; 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 я же пишу пример, сделать из него рабочий ког &#151; ваша задача.


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

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

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


 
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(...).


 
Kolan ©   (2007-09-26 09:21) [12]

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

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

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

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


 
Kolan ©   (2007-09-26 09:21) [13]


> TineSeries

TLineSerie


 
Zeqfreed ©   (2007-09-26 09:31) [14]

> Kolan ©   (26.09.07 09:21) [13]

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


 
Kolan ©   (2007-09-26 09:40) [15]

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


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



Страницы: 1 вся ветка

Текущий архив: 2007.10.21;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.022 c
1-1186549318
lecavalie
2007-08-08 09:01
2007.10.21
Подскажите плз. Delphi + Web/wap интерфейс


2-1191175017
Pacific
2007-09-30 21:56
2007.10.21
WebBrowser1


15-1190563931
ProgRAMmer Dimonych
2007-09-23 20:12
2007.10.21
Поддскажите, плз, самое простое и быстрое решение...


2-1190627331
АндрейК
2007-09-24 13:48
2007.10.21
множественный выбор в DBGrid


15-1187779146
Сергей М.
2007-08-22 14:39
2007.10.21
Помощь экстрасенса