TChart

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

添加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