Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как обратиться к графику по имени? [D7, XP]


cvg ©   (2007-10-26 09:55:00) 

Можно ли как-нибудь обратиться к кривой, которую я рисую, не через стандартное Series1.AddXY(...), а как-нибудь по имени, прописанному в Title для этой Series?


Jeer   (2007-10-26 11:07:00) [1]


> cvg   (26.10.07 11:03) [4]


Простой путь только последний, когда от тебя уже ничего не зависит.


cvg   (2007-10-26 11:03:00) [2]

2 Jeer
СПс. Я как-то думал, что есть какой-то более простой путь, чем в цикле перебором...


Jeer   (2007-10-26 10:57:00) [3]

Думать не хочется да ?

procedure SeriesNameAddXY(AChart: TChart; const SeriesName: string; X,Y: double; AMark: string; AColor: TColor);
var i: integer;
begin
 with AChart do
   for i:=0 to SeriesList.Count - 1 do begin
     if (Series[i].Title = SeriesName) then
         Series[i].AddXY(X,Y,AMark,AColor);
   end;
end;

//
Series1.Clear;
Series1.Title := 'Series1';
for i:=0 to 10 do
  SeriesNameAddXY(Chart1, 'Series1', i ,Random, IntToStr(i), clRed);


cvg   (2007-10-26 10:06:00) [4]

2 Jeer:
Ну а таки как?


Jeer   (2007-10-26 09:57:00) [5]

Можно все, допиши как тебе надо и пользуйся.


Наверх

Титульная страница Поиск, карта сайта Написать письмо