Delphi 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);