当前位置: 代码迷 >> Delphi >> tchart横坐标时间轴,该怎么解决
  详细解决方案

tchart横坐标时间轴,该怎么解决

热度:162   发布时间:2016-05-10 04:44:41.0
tchart横坐标时间轴
用tchart画图,横轴用来显示时间,从0到15min,增量为15秒,相当于要画60个点,可是这60个点来的时间间隔不一定相等,请问series1.add()或series1.addxy();方法中如何写呢,下面是我写的一段代码,请问该如何写,才能显示一条完整的曲线
谢谢了,我很急啊,马上就要交了,我是delphi菜鸟
Delphi(Pascal) code
procedure TForm2.Button1Click(Sender: TObject);vardata:array[0..59] of integer;i:integer;begin  for i := 0 to 59 do    data[i]:=random(200);while i<60 dobegin  Series1.AddXY();//里面不知道该如何写    i:=i+1;end;end;


------解决方案--------------------
AddXY,参数就是x,y的值呀,你传入点的实际值就行了,x应该是你的i,y应该是你的data[i]
------解决方案--------------------
Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);var  Series: TLineSeries;  I: Integer;  tmpValue: Integer;begin  Series := TLineSeries.Create(Chart1);  Chart1.Title.Text.Text := '图表的标题';  randomize;  for I := 1 to 60 do  begin    tmpValue := random(200);    Series.Add(tmpValue, IntToStr(I), clRed);  end;  Chart1.AddSeries(Series);  Chart1.Color := clWhite;  Chart1.BackColor := clMoneyGreen;  Chart1.LeftAxis.Title.Caption := '(单位:有功需量-0.0001kW; 无功需量-0.0001kvar)';  Chart1.AddSeries(Series);end;
------解决方案--------------------
设置横轴为时间类型:series1.XValues.DateTime := True;
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Fri Jul 28 06:45:58 CST 2017
  • 最近登录:Fri Jul 28 06:45:58 CST 2017
  • 最近登录:Fri Jul 28 06:45:58 CST 2017
  • 最近登录:Fri Jul 28 06:45:58 CST 2017
  • 最近登录:Fri Jul 28 06:45:58 CST 2017