请问:Tchart中如何用Addxy方法为series赋DateTime值?(50分)

  • 主题发起人 主题发起人 zjmg
  • 开始时间 开始时间
Z

zjmg

Unregistered / Unconfirmed
GUEST, unregistred user!
我用Barseries作图,BottomAxis为DateTime格式,数据文本文件放入Tmemo中,
请问:如何将Tmemo中的日期时间数据用Addxy方法加入图中?
数据文件每行格式:199909162230256...................
前15位数依此为:年(4位),月(2位),日(2位),时(2位),分(2位),
秒(3位,整数2位)。
我用copy函数无法正确在图上显示。
 
不能用ADDXY,用ADD方法,参考以下过程:
procedure TStockForm.ChartADDData;
var
FormatDayLineDateYear,FormatDayLineDateMonth,
FormatDayLineDateDay,FormatDayLineDate,DayLineDate:string;
begin
RecordStream.ReadRec(stockRec);
DayLineDate:=IntToStr(StockRec.Date);{将日期数转化成字符串}
FormatDayLineDateYear:=Copy(DayLineDate,2,2);{分离出年}
FormatDayLineDateMonth:=Copy(DayLineDate,5,2);{分离处月}
FormatDayLineDateDay:=Copy(DayLineDate,7,2); {分离出日}
FormatDayLineDate:=Concat(FormatDayLineDateYear,'-',FormatDayLineDateMonth,'-',FormatDayLineDateDay);

Series1.Add((stockRec.open / 1000),FormatDayLineDate,clBlack);
Series2.Add((stockRec.close / 1000),FormatDayLineDate,clTeeColor);
Series3.Add((stockRec.Low / 1000),FormatDayLineDate,clTeeColor);
Series4.Add((stockRec.High / 1000),FormatDayLineDate,clTeeColor);
end;
 
xdzhan:谢谢你的回答!
我是用循环语句用一个BARSERIES作图,而用COPY方法取出TMEMO中的X(日期时间)及Y值,但
无法正确显示在图上,用ADD方法则无法使Y与X对应。
 
多人接受答案了。
 
后退
顶部