Steema Central

Code: Select all

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, VCLTee.TeEngine,
  Vcl.ExtCtrls, VCLTee.TeeProcs, VCLTee.Chart, Vcl.StdCtrls, VCLTee.TeCanvas, VCLTee.TeExport,
  VCLTee.TeePDFCanvas, VCLTee.TeeTools, VCLTee.TeeSurfa;

procedure TForm1.FormCreate(Sender: TObject);
var bottomSurface,leftSurface:TChartAxis;
    aspect:TView3DOptions;
    surface1, surface2:TSurfaceSeries;

  procedure AddFromFile(Series:TSurfaceSeries; MyPath:String);
  var strings:TStringList;
    t:Integer;
    line:String;
    strArray  : TArray<String>;
    charArray : Array[0..0] of String;
    format:TFormatSettings;
  begin
   try
    strings := TStringList.Create;
    strings.LoadFromFile(MyPath);
    charArray[0]:=',';
    format.DecimalSeparator:='.';

    for t := 0 to strings.Count-1 do
    begin
      line:=strings[t];
      strArray:=line.Split(charArray);
      Series.AddXYZ(StrToFloat(strArray[0], format), StrToFloat(strArray[1], format), StrToFloat(strArray[2], format));
    end;

    finally
      strings.Free;
   end;
  end;

begin
 Chart1.Tools.Add(TRotateTool);

 bottomSurface:=Chart1.Axes.Bottom;
 bottomSurface.Automatic:=false;
 bottomSurface.Maximum := 200;
 bottomSurface.Minimum := 1;

 leftSurface := Chart1.Axes.Depth;
 leftSurface.Automatic := false;
 leftSurface.Maximum := 180;
 leftSurface.Minimum := 1;

 Chart1.View3D:=true;
 Chart1.Chart3DPercent:=100;
 aspect:=Chart1.Aspect;
 aspect.Orthogonal := false;
 aspect.Elevation := 330;
 aspect.Rotation := 330;
 aspect.Zoom := 70;

 Chart1.Axes.Depth.Visible:=true;

 surface1:=TSurfaceSeries.Create(Self);
 surface1.IrregularGrid:=true;
 surface1.ParentChart:=Chart1;
 AddFromFile(surface1, '..\..\surface1.txt');

 surface2:=TSurfaceSeries.Create(Self);
 surface2.IrregularGrid:=true;
 surface2.ParentChart:=Chart1;
 AddFromFile(surface2, '..\..\surface2.txt');
end;