TeeChart Series dynamisch erstellen

[Thomas Horstmann]

Vielleich hilft das ja.

Delphi-Quellcode:

var
iLoop   : Integer ;
iSeries : TChart ;
begin
{ Schleife, 10x Balkenserien anlegen }
for iLoop := 0 to 9 do
  begin
  { Anlegen }
  iSeries := TBarSeries.Create(Owner) ;
  iSeries.BarPen.Visible      := False ;
  iSeries.Marks.Arrow.Visible := False ;
  { In Grafik speichern }
  MyChart.AddSeries(iSeries) ;
  end ; // for iLoop
  
{ Schleife, alles wieder löschen }
for iLoop := SeriesCount - 1 downto 0 do 
  begin
  iSeries := Series[iLoop] ;
  iSeries.Free ;  
  end ;
end ;