Steema Central

Code: Select all

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  Chart1.Axes.Bottom.DateTimeFormat:='MMM-yyyy';
  Chart1.Axes.Bottom.Increment:=DateTimeStep[dtOneMonth];
  //Chart1.Axes.Bottom.LabelsAngle:=90;

  for i:=0 to Chart1.SeriesCount-1 do
  begin
    Chart1[i].XValues.DateTime:=true;

    for j:=1 to 24 do
    begin
      if j<=12 then
        Chart1[i].AddXY(EncodeDate(2005,j,1),random)
      else
        Chart1[i].AddXY(EncodeDate(2006,(j mod 13)+1,1),random);
    end;
  end;

end;

//Month to month comparision
procedure TForm1.Button1Click(Sender: TObject);
var i, j, tmpIndex: Integer;
    tmpYear1, tmpYear2, tmpMonth: Word;
begin
  Chart1.Axes.Bottom.DateTimeFormat:='MMMM';

  for i:=0 to Chart1.SeriesCount-1 do
  begin

    tmpYear1:=YearOf(Chart1[i].XValues[0]);
    tmpIndex:=-1;

    for j:=0 to Chart1[i].Count-1 do
    begin
      tmpYear2:=YearOf(Chart1[i].XValues[j]);

      if tmpYear1<>tmpYear2 then
      begin
        if tmpIndex=-1 then
        begin
          tmpIndex:=j;
          Chart1.AddSeries(TLineSeries.Create(self));
          Chart1[Chart1.SeriesCount-1].XValues.DateTime:=true;
        end;

        tmpMonth:=MonthOf(Chart1[i].XValue[j]);
        Chart1[Chart1.SeriesCount-1].AddXY(EncodeDate(2005,tmpMonth,1),Chart1[i].YValue[j]);
      end;
    end;

    Chart1[i].Delete(tmpIndex, Chart1[i].Count - tmpIndex);
  end;

end;