如何在TChart中画一条平行于X轴的直线
[问题点数：20分，结帖人qinhan728]
如何在TChart中画一条平行于X轴的直线
[问题点数：20分，结帖人qinhan728]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2013年9月 Delphi大版内专家分月排行榜第二2012年12月 Delphi大版内专家分月排行榜第二
2013年4月 Delphi大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。在delphi中，如何实现输入二维数组，在tchart中显示一条曲线，有哪位高手编个程序我参考一下啊_百度知道
在delphi中，如何实现输入二维数组，在tchart中显示一条曲线，有哪位高手编个程序我参考一下啊
提问者采纳
tchart1;begin
LineSeries,
1，按钮响应如下procedure TForm1.BitBtn2Click(Sender.Style, 13.1] of array[0;&#39.Add(LineSeries),&#39,
2).Legend,(15,
8.;&#47,'
6)):=False程序中加入一个Tchart控件.SeriesList:=TLineSeries:=Smsvalue.Create(tchart1),
1.Color:=ClWhite,[RfReplaceAll])，然后再uses中加入
Series:=0 To 4 Do
LineSeries.ParentChart.SeriesList,clTeeColor).Strings[I] ..Strings[I]);
tchart1;.ShowInLegend:=False.BevelOuter.Marks.Clear: TObject),
4:=tchart1;
LineSeries.AddXY(sarray[0][I], 14;_'
LineSeries.Add(Strtofloat(Value1:TLineS
I.Visible,sarray[1][I]):const
For I;&#47: array[0;end.4] of double =
tchart1,StringReplace(Str1;
LineSeries:=BvNone
提问者评价
谢谢啦。不过还有问题。我去掉了randomize；和tchart1.SeriesList.C两行运行没什么区别。
其他类似问题
二维数组的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁delphi TChart控件,如何绘制纵向曲线?
delphi TChart控件,如何绘制纵向曲线?
使用TCHART组件绘制LINE曲线,曲线显示为横向,现想使曲线纵向显示,请问如何实现?
不区分大小写匿名
这个 你 添加 点的时候把
X Y 反过来 就立起来了啊
delphi 自己带有Tchart的Demo,自己去看看就清楚了
相关知识等待您来回答
编程领域专家2381人阅读
Tchart分析报告,TeeChart使用指南,TeeChart控件介绍1.AllowZoom : Boolean是否允许鼠标拖动来缩放图表2.AnimatedZoom : Boolean拖动是否显示缩放过程3.AxisVisible : Boolean显示和隐藏4个子图表4.BufferedDisplay :BooleanTrue时图表首先画在内部画布上,可以防止图表闪烁,但耗费内存资源.5.ChartHeight : LongInt以像素为单位,运行为只读,显示图表顶轴与底轴的高度,不包含页边距,Height包含页边距,(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：/nsgtao/ ****)6.DepthAxis,LeftAxis,RightAxis,TopAxis,BottomAxisTchart共分为五个子图表,LeftAxis,RightAxis,TopAxis,BottomAxis和DepthAxis默认情况下只显示LeftAxis和BottomAxis子图表可以通过Series属性的子属性HorizAxis与VertAxis进行设置如:chart1.Series[0].HorizAxis := aBothHorizAchart1.Series[0].VertAxis := aBothVertAchart1.BottomAxis.Title.Caption := 'nsgtao';chart1.BottomAxis.Title.Font.Color := clR7.Foot : TChartTitle在图表底部定义的文本和格式,在图表底部显示一些说明文字Chart1.Foot.Text.Add('Nsgtao Foot');(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：/nsgtao/ ****)8.Gradient : TChartGradient用于设置图表背景颜色:是否显示背景色,背景色渐变的起始颜色和终止颜色,渐变方向等以下是 南山古桃(nsgtao) 引用网上资源引用1.关键词:Tchart分析报告引用2.关键词: TeeChart使用指南,TeeChart控件介绍***************************************************************************************************************************************************下面是 南山古桃 引用 并整理的文章***********************************************************************************************************************************1&&&&&&&&& Tchart分析报告(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：/nsgtao/ ****)1.1&&&&& [概述]&& TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。1.2&&&&& [继承关系]TObjectTPersistentTComponentTControlTCustomControlTWedgetControlTChartTCustomPanel1.3&&&&& [tips]1.3.1&&&&&&&&&&& Pro Version支持Bezier , Contour , Radar 和 point3D 曲线1.3.2&&&&&&&&&&& 支持jpeg文件的导出1.3.3&&&&&&&&&&& Chart中的Series 可以连接到Table , Query , RemoteDataset(其他数据集)1.3.4&&&&&&&&&&& TChart里的series的active属性可以实现对已绘制图形的显示或者隐藏1.3.5&&&&&&&&&&& 在TChart中, tchartSeries是所有具体series的父类,没有画出什么来的,用一个具体的series类来创建就可以了,比如用TLineSeries、 TPieSeries、 TPointSeries、 TPointSeries等等都行1.3.6&&&&&&&&&&& TTeeFunction Component可以实现在同一个TChart里面，一个Serries对另一个Serries的统计1.4&&&&& [问题极其使用技巧]&&& 1.4.1&&&&&&&&&&& TChart中如何实现只有Y轴的放大与缩小功能？设置BottomAxis或者LeftAxis的Automatic:=false并同时设置Minimum,Maximum属性&&& 1.4.2&&&&&&&&&&& 如何固定TChart中的坐标，不使TChart中的坐标跟随Series的变化而变化？//设置底座标with myChart.BottomAxis dobegin&&& Automatic:=&&& Minimum:=0;&&& LabelStyle := talT//设置左坐标with myChart.LeftAxis dobegin&&& Automatic:=&&& Minimum:=0;&&& Title.Angle:=270;&&& Title.Font:=Self.F&&& Title.Font.Charset:=ANSI_CHARSET;&&& Title.Font.Name:='@宋体';&&& Grid.Visible := F//设置右坐标with myChart.RightAxis dobegin&&& Automatic:=&&& Title.Font:=Self.F&&& Title.Font.Charset:=ANSI_CHARSET;&&& Title.Font.Name:='@宋体';&&& Title.Caption:='累计百分比（%）';&&& Maximum:=100;&&& Minimum:=0;&&& 1.4.3&&&&&&&&&&& 如何删除一个图形中的一个点？使用Series的delete 方法&&& 1.4.4&&&&&&&&&&& 如何修改一个点的X或者Y 值？LineSeries1.YValue[3] := 27.1 ;{In Bubble Series}BubbleSeries1.RadiusValues.Value[ 8 ] := 8.1 ;{In Pie Series}PieSeries1.PieValues.Value[ 3 ] := 111 ;&&& 1.4.5&&&&&&&&&&& 如果横坐标是时间（日期），如何进行设置？{First, you need to set the DateTime property to True in the desired X and/or Y values list.}LineSeries1.XValues.DateTime := T{Second, use the same above described methods, but give the values as Date, Time or DateTime values}LineSeries1.AddXY( EncodeDate( 1996 , 1 , 23 ) , 25.4 , 'Barcelona' , clGreen );&&& 1.4.6&&&&&&&&&&& 如何在chart中画出的曲线某个点上标记出该点的值？Series.Marks.Visible:=Series.Marks.Style:=smsV&&& 1.4.7&&&&&&&&&&& 如何设置横轴或者纵轴的增长率？Chart.BottomAxis.Increment := DataTimeStep[ dtOneHour ] ;Chart.RightAxis.Increment := 1000;&&& 1.4.8&&&&&&&&&&& 如何对图象进行缩放？TChart的ZoomRect或者ZoomPercent方法（Pie图可能不支持缩放）(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：/nsgtao/ ****)1.5&&&&& [TChart可以绘制的图形]&&& 1.5.1&&&&&&&&&&& Line ( TLineSeries)&&& 1.5.2&&&&&&&&&&& FastLine (TFastLineSeries) 相对Line来说，它损耗了某些属性从而来实现快速绘制&&& 1.5.3&&&&&&&&&&& Bar (TBarSeries)&&& 1.5.4&&&&&&&&&&& Horizontal bar (THorizBarSeries)&&& 1.5.5&&&&&&&&&&& Area (TAreaSeries)&&& 1.5.6&&&&&&&&&&& Point (TPointSeries)&&& 1.5.7&&&&&&&&&&& Pie (TPieSeries)&&& 1.5.8&&&&&&&&&&& Arrow (TArrowSeries)&&& 1.5.9&&&&&&&&&&& Bubble (TBubbleSeries)&&& 1.5.10&&&&&&&& Gantt (TGanttSeries)&&& 1.5.11&&&&&&&& Sharp (TChartShape)1.6&&&&& [TChart的实时绘制]实时绘制对机器性能要求比较高，因此我们在编程的时候要注意下面几个方面：&&&&&&&&& 使用2D图形&&&&&&&&& 是Chart尽可能包含少的点&&&&&&&&& 如果需要，可以移除（remove）chart的legend(?????)和Title&&&&&&&&& 使用默认的字体和字体大小&&&&&&&&& 使用FastLineSeries&&&&&&&&& 使用实体（solid）画笔和画刷格式&&&&&&&&& 尽量避免使用圆形和环行bar样式&&&&&&&&& 不要使用背景图片和渐变效果样式&&&&&&&&& 把Chart的BevelInner和BevelOUter属性设置为bcNone&&&&&&&&& 如果需要，把TChart的AxisVisible属性设置为False&&&&&&&&& 把BufferedDisplay设置为false可以加速chart的重绘1.7&&&&& [Scrolling]&& TChart有4中scroll选择(AllowPanning属性)，分别是 不允许Scroll ( pmNone) ; 水平Scroll (pmHorizontal) ; 垂直Scroll (pmVertical) ; 水平和垂直Scroll (pmBoth)Procedure Scroll(Const Offset:D CheckLimits:Boolean);例子如下：Chart1.BottomAxis.Scroll( 1000, True );这段代码也等同于With Chart1.BottomAxis doBeginAutomatic:=SetMinMax( Minimum+1000, Maximum+1000 );&&& E(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：/nsgtao/ ****)1.8&&&&& [TChart中的全局变量]&&&&&&&&& TeeScrollMouseButton := mbR设置鼠标右键为TChart滚动键（默认）&&&&&&&&& TeeScrollKeyShift&&& := [ ssCtrl ]; 要按住Control键才可以使Scroll滚动1.9&&&&& [TChartSerries使用技巧]&&& 1.9.1&&&&&&&&&&& 运行时候创建一个Serries, 三种方法：&&&&&&& 1．Var MySeries : TBarSMySeries := TBarSeries.Create( Self );MySeries.ParentChart := Chart1 ;&&&&&&& 2．Chart1.AddSeries( TBarSeries.Create( Self ) );&&&&&&& 3．Var MyClass : TChartSeriesCMyClass := TBarSChart1.AddSeries( MyClass.Create( Self ) );&&& 1.9.2&&&&&&&&&&& 获得TChart中的Serries数组，也有三种方法&&&&&&& 1．MySeries := Chart1.SeriesList [ 0 ]&&&&&&& 2．MySeries := Chart1.Series [ 0 ]&&&&&&& 3．MySeries := Chart1 [ 0 ]&&& 1.9.3&&&&&&&&&&& SerriesCount属性获得SeriesList中Series的个数&&& 1.9.4&&&&&&&&&&& 隐藏TChart中的Series有三种方法，但是效果不等价&&&&&&& 1． Series1.Active:=F 仅仅隐藏，当设置为true的时候还可以显示出来&&&&&&& 2． Series1.ParentChart:=nil ； 隐藏，重新设置ParentChart为TChart时候可以显示&&&&&&& 3． Series1.F 删除了Series. 不可以恢复&&& 1.9.5&&&&&&&&&&& TChart中的数据排序&&& With Series1 dobegin&&& YValues.Order:=loA&&& YValues.S&&& R&O&&&&&&&& 定位一个点(Loacate a point)Series1.XValues.Locate(123);&O&&&&&&&& XValue和YValue都拥有的属性Total , TotalABS , MaxValue , MinValue
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：55002次
排名：千里之外
原创：18篇
转载：21篇
评论：13条
(1)(9)(14)(3)(1)(2)(4)(3)(2)SPCOM串口通讯及Tchart实时曲线分析问题
[问题点数：100分，结帖人CSDN]
SPCOM串口通讯及Tchart实时曲线分析问题
[问题点数：100分，结帖人CSDN]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
本帖子已过去太久远了，不再提供回复功能。