不需要很高深。 就比如怎么定横纵坐标,数值怎么加进去我想画个简单的LINE。。就是定几个点,用线连起来各位来帮帮忙啊

解决方案 »

  1.   

    你问的太勇猛了。
    老兄,你都三个裤头了,怎么还问这重问题。
    留个mail,传给你。
      

  2.   

    建议好好看看D自带的TeeChart的示例.....我一直就是用TeeChart的,觉得很好用
      

  3.   

    8好意思,太久没编过程序了,大家别笑EMAIL:[email protected]
      

  4.   

    procedure TTFChart.Timer1Timer(Sender: TObject);
    var
      Amount:Double;
    begin
       self.Caption:='现在的温度是'+FloatToStr(roundto(Main.ValueT,-2))+'摄氏度';
       with Chart1 do               
       begin
       with Series[0] do
       if Count>(10000/Timer1.Interval) then
       begin
         Delete(0);
         AddXY(i,Main.ValueT,'',clTeeColor);
         With Chart1.BottomAxis do
         begin
           Amount:=roundto(((Maximum-Minimum)/Count),-1);
           SetMinMax(Minimum+Amount,Maximum+Amount);
          end;
       end
       else
         AddXY(i,Main.ValueT,'',clTeeColor);
       end;
       MainForm.LedDisplay1.Number:=trunc(Main.ValueT/10);
       MainForm.LedDisplay2.Number:=trunc((Main.ValueT-trunc(Main.ValueT/10)*10));
       i := i + Timer1.Interval/1000;
    end;
      

  5.   

    多谢 solokey(永远的菜鸟-研究TPersistent中)  ,等会给分。(^_^)