如何用代码在Delphi 7.0中安装TeeChart 7.0

一、删除Delphi7自带TeeChart

1、Component -> install Packages 中 Remove 所有以Tee开头的包,OK,关闭Delphi7。

2、删除Delphi\Bin目录下的DclTee70.bpl

3、删除 \Windows\System32(或System)目录的以下文件:

Tee70.bpl

Teedb70.bpl

Teeqr70.bpl

Teeui70.bpl

4、删除Delphi\Lib目录下的以下文件(如果有的话.可以把以下文本建成一个Bat文件,在Delphi\Lib目录下运行即可。

del QRTEE.dcu

del dcltee.dcp

del tee.dcp

del TeeAbout.dcu

del TeeAbout.dfm

del teebmps.res

del TeeConst.dcu

del teedb.dcp

del TeeFunci.dcu

del TeeGally.dcu

del TeeGally.dfm

del TeeLisB.dcu

del TeEngine.dcu

del TeePoEdi.dcu

del TeePoEdi.dfm

del TeePrevi.dcu

del TeePrevi.dfm

del TeeProcs.dcu

del teeqr.dcp

del teeresou.res

del TeeShape.dcu

del teeui.dcp

del TeExport.dcu

del TeExport.dfm

del TeCanvas.dcu

del Chart.dcu

del ArrowCha.dcu

del BubbleCh.dcu

del EditChar.dcu

del GanttCh.dcu

del Series.dcu

二、安装TeeChart Pro v7.0 Full Sources

1、启动Delphi,将TeeChart v7.0源文件拷贝到一特定目录,如 \Delphi7\Source\TeeChart7 并在Tools-> Environment Options -> Library -> Library Path 中添加该路径 同时添加以下路径 $(DELPHI)\Projects\Bpl,否则下一步编译会有找不到“tee77.dcp”的问题！

2、Open Project打开目录中的 Tee7D7.bpg Project-> Build All Projects 编译所有项目， 编译生成的文件在$(DELPHI)\Projects\Bpl目录中。

3 、 将Bpl目录中的下列文件拷贝到\Windows\System32(或System)目录中：

Tee77.bpl

TeeDB77.bpl

TeeGL77.bpl

TeeImage77.bpl

TeeLanguage77.bpl

TeePro77.bpl

TeeQR77.bpl

TeeUI77.bpl

4、将Bpl目录中的下列文件拷贝到\Delphi7\Bin目录中:

DclTee77.bpl

DCLTeePro77.bpl

DclTGL77.bpl

DCLTQR77.bpl

5、将Bpl目录中的下列文件拷贝到\Delphi7\Lib目录中:

DclTee77.dcp

DCLTeePro77.dcp

DclTGL77.dcp

DCLTQR77.dcp

Tee77.dcp

TeeDB77.dcp

TeeGL77.dcp

TeeImage77.dcp

TeeLanguage77.dcp

TeePro77.dcp

TeeQR77.dcp

TeeUI77.dcp

6、安装TeeChart:

Component -> install Packages 中 Add \Delphi7\Bin目录中以下文件:

DclTee77.bpl

DCLTeePro77.bpl

DclTGL77.bpl

DCLTQR77.bpl (如果没有安装QuickReport,可以不添加此文件)

和\Windows\System32 (或System)目录中的TeeImage77.bpl

7、选择简体中文:

新建一工程,添加Additional面板中的TChart放到Form上,选中Chart1, 鼠标右击，选择Options,在Langague框中再选Chinese Simp,OK。

delphi 语言里绘制图表，通常使用 TChart 和  TDBChart 控件，这些图表相关的控件属于标准控件，delphi 安装后就包含了。以下是简单地步骤与示例代码:

首先，在窗体中添加一个 TChart 控件及其他需要的控件。

其次，建立直方图代码示例：

procedure TForm1.Button1Click(Sender: TObject)

var

  Series1: array [0 .. 1] of TBarSeries//定义两个直方图序列

  i: integer

begin

  Series1[0] := TBarSeries.Create(Chart1)

  Chart1.AddSeries(Series1[0])

  Series1[1] := TBarSeries.Create(Chart1)

  Chart1.AddSeries(Series1[1])

  for i := 0 to 10 do

  begin

    TBarSeries(Chart1.Series[0]).AddBar(random(100), inttostr(i), clred)//红色，直方图数据

    TBarSeries(Chart1.Series[1]).AddBar(random(100), inttostr(i), clgreen)//绿色，直方图数据

  end

end

运行截图：

楼上用的是DBchart.. 我着手给lz写一个Tchart的例子,

楼主留下信箱吧,我写好给你发过去..

下面的是个最简单的例子,lz如果要源码就hi我,, 如果需要其他功能,我也可以帮你添加

unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart

type

TForm1 = class(TForm)

ct: TChart

Series1: TBarSeries

Button1: TButton

TT: TTimer

procedure Button1Click(Sender: TObject)

procedure FormCreate(Sender: TObject)

procedure TTTimer(Sender: TObject)

private

{ Private declarations }

public

{ Public declarations }

end

var

Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject)

begin

//Timer 控制开关

if TT.Enabled=false then

TT.Enabled:=true

else

TT.Enabled:=false

end

procedure TForm1.FormCreate(Sender: TObject)

begin

TT.Interval:=2000//2秒刷新一次

TT.Enabled:=false

end

procedure TForm1.TTTimer(Sender: TObject)

begin

ct.Series[0].Clear

//这里的值我是取随机数了

//你可以换成你具体的值,从文件读或者从数据库取均可.

Randomize

ct.Series[0].Add(Random(1000)+200,'time1',clred)

ct.Series[0].Add(Random(1000)+100,'time2',clblue)

ct.Series[0].Add(Random(1000)+100,'time3',clyellow)

//三个参数分别为 Y轴数量,X轴显示,颜色

end

end.

[补充]:

ct.Series[0].Add(c ,'time3',clyellow)

就这么写哦.. 这个Add函数有三个参数

第一个是Y轴的值,换成c

第二个是X轴显示的时间, 可以取当前时间

FormatDatetime('yyyy-m-dd hh:mm:ss',now)

第三个是颜色

综上,你应该换成:

ct.Series[0].Add(c , FormatDatetime('yyyy-m-dd hh:mm:ss',now),clyellow)

---