delphi中怎么实现动态的画出参数的曲线图呀?实在是没有分可以给了,希望高手们帮帮忙呀

解决方案 »

  1.   

    只是要曲线图的话,TeeChart就够了。楼主没表述太清楚
      

  2.   

    TeeChart可以将接收到的数据直接动态的现实曲线图吗?
      

  3.   

    unit Unit1;interfaceuses
      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.
      

  4.   

      cht1.Series[0].AddXY(k,(你的数据double类型),TimeToStr(Time));
      Inc(k);