Steema Central

Code: Select all

  if Assigned(Series) then
     DoSeries(Series)
  else
  for t:=0 to Chart.SeriesCount-1 do
      DoSeries(Chart[t]);

Code: Select all

  if Assigned(Series) then
     DoSeries(Series)
  else
  for t:=0 to Chart.SeriesCount-1 do
      if Chart[t].Active then DoSeries(Chart[t]);

Code: Select all

uses Series, TeeStore;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  Chart1.View3D:=false;
  Chart1.Legend.CheckBoxes:=true;

  for i:=0 to 5 do
    with Chart1.AddSeries(TBarSeries) do
    begin
      Title:='Series nº' + IntToStr(i+1);
      Color:=OperaPalette[i mod Length(OperaPalette)];
      Marks.Style:=smsValue;
      Active:=(i mod 2 = 0);

      for j:=0 to 5 do
        Add(random*75+25, 'Value nº ' + IntToStr(j+1));
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportActiveSeries;
end;

procedure TForm1.ExportActiveSeries;
var i: Integer;
    tmpSeriesList: TChartSeriesList;
begin
  tmpSeriesList:=TChartSeriesList.Create;

  for i:=Chart1.SeriesCount-1 downto 0 do
  begin
    if not Chart1[i].Active then
    begin
      tmpSeriesList.Add(Chart1[i]);
      Chart1[i].ParentChart:=nil;
    end;
  end;

  with TSeriesDataText.Create(Chart1) do
  begin
    IncludeHeader:=true;
    IncludeLabels:=true;
    ValueFormat:='0.000 E+0';
    TextDelimiter:=';';
    SaveToFile('C:\tmp\testExport.csv');
  end;

  for i:=tmpSeriesList.Count-1 downto 0 do
  begin
    tmpSeriesList[i].ParentChart:=Chart1;
  end;
end;