delphi 实现柱状图、统计图

Delphi 可以使用 TeeChart 组件来实现柱状图和统计图。首先，在 Delphi 中安装 TeeChart 组件，然后在工具箱中选择 TeeChart 组件并将其放置在窗体上。接下来，通过在代码中创建一个 TeeChart 对象，来实例化一个 Chart。然后，使用 AddSeries 方法来添加统计图系列。最后，使用 FillSampleValues 方法为系列添加数据，通过设置 Chart 标题、系列标题和其他属性来进行配置。具体实现代码如下：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 创建一个条形统计图
  Chart1.AddSeries(TBarSeries.Create(Self));
  Chart1.Series[0].Title := '销售量';
  Chart1.Series[0].FillSampleValues(5); // 添加数据，共计5个数据点
  Chart1.Title.Text[0] := '销售统计';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // 创建一个综合统计图
  Chart1.AddSeries(TBarSeries.Create(Self));
  Chart1.AddSeries(TLineSeries.Create(Self));
  (Chart1.Series[0] as TBarSeries).Title := '昨日销售量';
  (Chart1.Series[0] as TBarSeries).FillSampleValues(5);
  (Chart1.Series[1] as TLineSeries).Title := '当日销售量';
  (Chart1.Series[1] as TLineSeries).FillSampleValues(5);
  Chart1.Title.Text[0] := '销售统计';
end;

end.

在 Delphi 中，柱状图和折线图是 TeeChart 组件的两种基本统计图类型，代码中通过创建 TBarSeries 和 TLineSeries 实现了统计图的添加和数据填充。通过设置 Chart 和系列对象的属性，可以轻松自定义 Chart 的颜色、标题和其他细节。