Steema Central

Code: Select all

  with Chart1 do
  begin
    View3D := False;
    RemoveAllSeries ;
    Title.Clear ;
  end;
  MyContour := TContourSeries.Create(chart1);
  Chart1.AddSeries(MyContour);
  with MyContour do
  begin
    IrregularGrid := true;
    Filled := chkFillLevels.checked;
    BeginUpdate ;
  end;
  with QInsSC do
  begin
	//Formulate Query that will pull values from DB and populate fields[0] - fields[2] with xx, yy, zz values
    Active := true;
    first;
    icount := 0;
    while not eof do
    begin
      inc(icount);
      xx   := fields[0].AsFloat;
      yy   := fields[1].AsFloat;
      if not fieldbyName('GPD_Z').IsNull then
      begin
        zz := fields[2].AsFloat;
        MyContour.AddXYZ (xx, zz, yy,  '', clTeeColor);
      end;
      next;
    end;
  end;
  MyContour.EndUpdate ;

Code: Select all

uses Chart, TeEngine, TeeSurfa;

var Chart1: TChart;

procedure TForm1.FormCreate(Sender: TObject);
var MyContour  : TContourSeries;
    tmpLines   : TStrings;
    tmpFields  : TStrings;
    n          : Integer;
    xx, yy, zz : Double;
const AFileName='D:\Downloads\Zach\250401_Contour\grid_for_steema.csv';
begin
  Chart1:=TChart.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;

  MyContour:=TContourSeries(Chart1.AddSeries(TContourSeries));
  with MyContour do
  begin
    IrregularGrid:=True;
    Filled:=True;
    BeginUpdate;
  end;

  tmpLines:=TStringList.Create;
  tmpLines.LoadFromFile(AFileName);

  n:=1;
  while n<tmpLines.Count do
  begin
    tmpFields:=TStringList.Create;
    tmpFields.Delimiter:=';';
    tmpFields.DelimitedText:=tmpLines[n];

    xx := StrToFloat(tmpFields[0]);
    yy := StrToFloat(tmpFields[1]);
    zz := StrToFloat(tmpFields[2]);

    MyContour.AddXYZ(xx, zz, yy);

    Inc(n);
  end;

  MyContour.EndUpdate;
end;