delphi 实现柱状图、统计图
时间: 2023-12-20 13:07:42 浏览: 163
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 的颜色、标题和其他细节。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)