Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.10.21;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.124 c
2-1190282755
Tifon
2007-09-20 14:05
2007.10.21
Отображение немецких умляутов


2-1190880438
F@T@L_Err0r
2007-09-27 12:07
2007.10.21
messagedlg


1-1186312251
fd979
2007-08-05 15:10
2007.10.21
ТЕlSideBar


3-1181851198
Lavrenty
2007-06-14 23:59
2007.10.21
Транзакции в InterBase


11-1174071703
AnalogXP
2007-03-16 22:01
2007.10.21
Нужна маленькая программа





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский