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

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

Нужно динамически создать/удалить несколько Series. [D6, XP]

Mikka Hakkinnen ©   (2006-08-16 14:56:00) 

Нашёл в форуме код, он работает, но неясно, по каким именам потом обращаться к созданным сериям? Chart1.Series[i] ?

procedure CreateNewSeries(Sender: TObject);
var
 Series  : TLineSeries;
 Color   : TColorDialog;
 i       : integer;
begin
 Series := TLineSeries.Create(Chart1);
 Color := TColorDialog.Create(nil);
 try
   if Color.Execute then begin
     for i := 0 to 100 do begin
       Series.AddX(Random(100));
       Series.AddY(Random(100));
     end;
   end;
   Series.SeriesColor := Color.Color;
 finally
   Color.Free;
 end;
 Chart1.AddSeries(Series);
 Series.Active := True;
 Chart1.Repaint;
end;


---

Mikka Hakkinnen   (2006-08-17 12:09:00) [1]

Обошёлся без SeriesList, проблема решена
( http://forum.sources.ru/index.php?showtopic=149625&st=0&#entry1223582).
В чём проблема была - динамически создавать и удалять серии для построения меняюшегося числа графиков

---

MBo   (2006-08-17 08:34:00) [2]

Не очень ясно, в чем именно проблема...

---

Mikka Hakkinnen   (2006-08-17 08:13:00) [3]

Кажется, погорячился.
Серии создаются, но обращаться к ним сложно, да и удалить не знаю как.
Попробую использовать Chart1.SeriesList[i]:=Series;

---

Mikka Hakkinnen   (2006-08-16 15:23:00) [4]

Всем спасибо! Вопрос снимаю - нашёл ответ на Исходниках.ру .

---

Наверх