TChart

Series1.YValues.MaxValue;
Series1.YValues.Total;
Series1.YValues.MinValue;
Series1.YValues.TotalABS;

 

官方一个例子

https://community.embarcadero.com/blogs/entry/curve-data-from-a-straight-line-with-c-builder-tchart-ios

 

添加20个节点

  var
    i : Integer;
    stime : string;
  begin
    for i := 1 to 20 do
    begin
      stime := Format( '12:0%d', [ i ] );
      Self.Series1.Add( Random( 5 ), stime );

    end;
  end;

 比较干净清爽的tchart

object Chart1: TChart
    Position.X = 104.000000000000000000
    Position.Y = 80.000000000000000000
    AllowPanning = pmNone
    Legend.Visible = False
    Title.Text.Strings = (
      'TChart')
    Title.Visible = False
    AxisBehind = False
    BottomAxis.Axis.Visible = False
    DepthTopAxis.Visible = True
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.Axis.Visible = False
    LeftAxis.Maximum = 10.000000000000000000
    Pages.AutoScale = True
    Panning.MouseWheel = pmwNone
    Shadow.Visible = False
    View3D = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    Zoom.Allow = False
    Zoom.Brush.Kind = None
    Zoom.Pen.Fill.Color = claSilver
    BevelOuter = bvNone
    TabOrder = 0
    Size.Width = 400.000000000000000000
    Size.Height = 250.000000000000000000
    Size.PlatformDefault = False
    ColorPaletteIndex = 13
    object Series1: TFastLineSeries
      LinePen.Color = xFF4466A3
      LinePen.Fill.Color = xFF4466A3
      XValues.Name = 'X'
      XValues.Order = loNone
      YValues.Name = 'Y'
      YValues.Order = loNone
    end
  end

 时间轴，滚动，添加新数据，删除旧数据，就像windows任务管理器

procedure TForm3.Button6Click( Sender : TObject );
  begin
    self.Series1.Delete( 0 );
    Inc( self.i );
    stime := Format( '12:0%d', [ self.i ] );
    self.Series1.AddXY( Series1.XValues.MaxValue + 1, Random( 5 ), stime );
  end;

 

    Series1.XValues.DateTime := True;

  

  

横轴线宽度

self.Chart1.BottomAxis.Axis.Width:=1;

横轴表格线隐藏
self.Chart1.BottomAxis.Grid.Visible:=false;