Steema Central

Code: Select all

uses Chart, DBChart, DBEditCh, Series, EditChar, FireDAC.Comp.Client, Data.DB;

var Chart1: TDBChart;
    FDMemTables: array of TFDMemTable;

procedure TForm1.FormCreate(Sender: TObject);
var val: Double;
    i, j: Integer;
begin
  SetLength(FDMemTables, 100);

  for i:=0 to High(FDMemTables) do
  begin
    FDMemTables[i]:=TFDMemTable.Create(Self);
    FDMemTables[i].Name:='MemTable'+IntToStr(i+1);
    FDMemTables[i].FieldDefs.Add('Price', ftInteger);
    FDMemTables[i].CreateDataSet;
    FDMemTables[i].Open;

    val:=1000+Random(500);
    for j:=1 to 1000 do
    begin
      FDMemTables[i].AppendRecord([val]);
      val:=val+Round(Random(10)-4.5);
    end;
  end;

  Chart1:=TDBChart.Create(Self);

  with Chart1 do
  begin
    Parent:=Self;
    Align:=alClient;
    Color:=clWhite;
    Gradient.Visible:=False;
    Walls.Back.Color:=clWhite;
    Walls.Back.Gradient.Visible:=False;
    Legend.Hide;
    View3D:=False;
  end;

  with Chart1.AddSeries(TLineSeries) do
  begin
    DataSource:=FDMemTables[0];
    YValues.ValueSource:='Price';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EditSeries(Self, Chart1[0]);
end;