delphi中怎么实现动态的画出参数的曲线图呀?实在是没有分可以给了,希望高手们帮帮忙呀
解决方案 »
- 如何判断ADOSQL 处于编辑状态
- Delphi 怎么实现浏览器中超链接的拖拽
- 動態生成TTabSheet 放在Page_Contorl後如何刪除它
- 多了一个星,散分
- delphi7 THTTPRIO 组件在windows2003上使用调用webservice报内存错误的问题
- 请帮查看SQLsever多表查询代码??
- 如何挂起/唤醒其它程序?
- 新手的qreport问题,如何在报表中显示总的页码数,望各位大虾帮助解决。
- 关于dbGridEh的打印问题
- Delhi缺少报表组件怎么办?(请各位帮忙看一下)
- 注册表里的问题,高手请帮忙
- 各位DELPHI B/S开发WEBBROKE INTRAWEB ACTIVEX WEBSNAP ?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;type
TForm1 = class(TForm)
cht1: TChart;
fstlnsrsSeries1: TFastLineSeries;
fstlnsrsSeries2: TFastLineSeries;
btn1: TButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
K,B:Integer;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 100 do
begin
cht1.Series[0].AddXY(k,i,TimeToStr(Time));
if i= 50 then B:=K;
Inc(k); end;
end;procedure TForm1.btn2Click(Sender: TObject);
var
i:Integer;
begin
for i:= 0 to 300 do
Begin
cht1.Series[1].AddX(B,'');
end;end;end.
Inc(k);