Создание Series в Run-Time

Var MySeries : TLineSeries ;

MySeries := TLineSeries.Create( Self );

MySeries.ParentChart := Chart1 ;

Или можно так

Chart1.AddSeries( TBarSeries.Create( Self ) );

Series как Массив

A) Использование SeriesList property:

MySeries := Chart1.SeriesList [ 0 ]

B) Использование Series array property:

MySeries := Chart1.Series [ 0 ]

C) Или:

MySeries := Chart1 [ 0 ]

Свойство SeriesCount – количество Series

for t := 0 to Chart1.SeriesCount - 1 do

With Chart1.Series [ t ] do

begin

   SeriesColor := clBlue ;

end;

Удаление Series

Три способа:

A) Series1.Active := False ;

B) Series1.ParentChart := nil;

C)Series1.Free ;

Добавление новых точек

Series1.Add(  1234, ‘USA’, clBlue );

Series3.AddXY (i*0.29,sin(i*0.29),'',clGreen);   

Series3.AddArray([ 1234, 2001, 4567.12 ] );