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;