delphi中tchart动态显示多条曲线源码

在Delphi中使用TChart动态显示多条曲线的源码可以如下所示：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VCLTee.Series, Vcl.ExtCtrls, VCLTee.TeEngine,
  VCLTee.TeeProcs, VCLTee.Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure AddRandomData(Series: TLineSeries);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Series1, Series2: TLineSeries;
begin
  // 创建两条曲线
  Series1 := TLineSeries.Create(Chart1);
  Series2 := TLineSeries.Create(Chart1);

  // 设置曲线的标题和样式
  Series1.Title := '曲线1';
  Series2.Title := '曲线2';
  Series1.Pointer.Visible := True;
  Series2.Pointer.Visible := True;

  // 将曲线添加到图表中
  Chart1.AddSeries(Series1);
  Chart1.AddSeries(Series2);

  // 设置图表的标题和坐标轴名称
  Chart1.Title.Text.Text := '动态显示多条曲线';
  Chart1.BottomAxis.Title.Caption := 'X轴';
  Chart1.LeftAxis.Title.Caption := 'Y轴';

  // 启动定时器，定时刷新曲线数据
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // 每个定时周期更新曲线的数据
  AddRandomData(TLineSeries(Chart1.Series[0]));
  AddRandomData(TLineSeries(Chart1.Series[1]));
end;

procedure TForm1.AddRandomData(Series: TLineSeries);
begin
  // 随机生成曲线的数据点
  Series.Add(Random(100), Random(100));
  // 更新图表显示
  Chart1.AutoRepaint := True;
end;

end.

这是一个简单的示例，其中通过TLineSeries来显示两条曲线，并使用定时器Timer1来动态更新曲线的数据。在定时器的事件中，调用AddRandomData方法生成随机的曲线数据点，并通过Chart1.AutoRepaint := True来实时刷新图表显示。