Добавление серий в Chart

← →
vitnt2000 (2002-05-08 07:46) [0]

Подскажите пожалуйста
Как в Сhart программно добавить серии и указать их параметры?, пробовал:
DBChart1.SeriesList.Add(new);
вылетает по ошибке

← →
forester © (2002-05-08 07:56) [1]

Попробуй следующим образом:

DBChart1.RemoveAllSeries;
DBChart1.AddSeries(Series1);

// первая строка не обязательна, обычно используется когда производится попеременное подключение различных серий

← →
vitnt2000 (2002-05-08 08:38) [2]

А как в цикле добавит несколько серий?
Series1, Series2, Series3 ....

← →
Reals © (2002-05-08 11:23) [3]

Держи вот код, это программное создание компонента TChart:
Может разберешься...

var Chart1 : TChart; Chart1 := TChart.Create(nil); Series1:=TLineSeries.Create(Chart1); Series1.ParentChart:=Chart1; Series1.Title:=""; Series2:=TLineSeries.Create(Chart1); Series2.ParentChart:=Chart1; Series2.Title:=""; with Chart1 do begin for i:=1 to 2 do begin X := 10*i; Y := 50*i; Series1.AddXY(IntToFloat(X), IntToFloat(Y)); end; for i:=1 to 2 do begin X := 20*i; Y := 70*i; Series2.AddXY(IntToFloat(X),IntToFloat(Y)); end; end; Title.Text.Text:=""; LeftAxis.Title.Caption:=""; LeftAxis.AutomaticMinimum:=False; LeftAxis.AutomaticMaximum:=True; BottomAxis.Title.Caption:=""; BottomAxis.AutomaticMinimum:=False; BottomAxis.AutomaticMaximum:=True; View3D := False; Parent := Form; Width := 250; Height := 200; end; Chart1.Free;

С Уважением...

забыл доавить еще обявление переменных:
var Series1 : TLineSeries; Series2 : TLineSeries;

P.S. С остальными переменными думаю понятно.
С Уважением...

← →
Upendra (2002-05-09 10:49) [5]

Кстати, небольшое замечание...
Если ParentChart присваивать после заполнения серии точками, то чарт рисуется значительно быстрее

Добавление серий в Chart Найти похожие ветки