TCHART画线和坐标移动如何协调? ( 积分: 19 )

这是个在TIMER里面写的,结果就是,TCHART没有画线的效果,感觉是我移动坐标和画线可能是先后顺序出错吧?高手能指点一下吗?分不多了,全部献出
procedure TdataForm.tmr1Timer(Sender: TObject);
begin
with chtYSZD.BottomAxisdo
begin
Automatic:=False;
SetMinMax(IncMinute(Now,-1),Now);
end;
with ADOqryRealdo
begin
Close;
SQL.Clear;
SQL.Add('select DecTime,ComYSZD from RealData');
Open;
while not Eofdo
begin
dt:=FieldByName('DecTime').AsDateTime;
sdt:=FormatDateTime('YY/MM/DD HH:MM:SS',dt);
YSZD:=FieldByName('ComYSZD').AsString;
SerYSZD.AddXY(dt,StrToFloat(YSZD),Copy(sdt,10,8),clRed);
Next;
end;
end;
end;

这是个在TIMER里面写的,结果就是,TCHART没有画线的效果,感觉是我移动坐标和画线可能是先后顺序出错吧?高手能指点一下吗?分不多了,全部献出
procedure TdataForm.tmr1Timer(Sender: TObject);
begin
with chtYSZD.BottomAxisdo
begin
Automatic:=False;
SetMinMax(IncMinute(Now,-1),Now);
end;
with ADOqryRealdo
begin
Close;
SQL.Clear;
SQL.Add('select DecTime,ComYSZD from RealData');
Open;
while not Eofdo
begin
dt:=FieldByName('DecTime').AsDateTime;
sdt:=FormatDateTime('YY/MM/DD HH:MM:SS',dt);
YSZD:=FieldByName('ComYSZD').AsString;
SerYSZD.AddXY(dt,StrToFloat(YSZD),Copy(sdt,10,8),clRed);
Next;
end;
end;
end;

好,帮顶


--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net
80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/