delphi图表控件(用Delphi7,如何读取excel里面的数据,并在chart控件里面画出曲线图大神能给个例程最好了)
本文目录
- 用Delphi7,如何读取excel里面的数据,并在chart控件里面画出曲线图大神能给个例程最好了
- Delphi chart图表控件 一进入系统还没有产生数据就是这个样子,怎么让它变没有数据
- 如何用delphi做图表
- delphi gantt chart怎么用
- Delphi chart图表控件怎么让两个柱形靠近点,隔的太远了 ,难看
用Delphi7,如何读取excel里面的数据,并在chart控件里面画出曲线图大神能给个例程最好了
在 delphi 里读取 excel 数据,用 XLSReadWriteII 控件效率最高,但如果还要操纵生成 Chart 图表,通常还是要借用 OleObject 方式来操作。
试编写示例代码如下:
procedure TForm1.Button3Click(Sender: TObject);var ExcelApplication,Sheet1,Cell1,Cell2,Range1:Variant;begin try ExcelApplication := CreateOleObject(’Excel.Application’); except Showmessage(’你的电脑里没有安装 Excel 软件’); abort; end; ExcelApplication.Visible:=true; ExcelApplication.Workbooks.Add; Sheet1:=ExcelApplication.Workbooks; //建立示例数据 Sheet1.Name:=’图表示例’; Sheet1.Cells.item:=’课程’; Sheet1.Cells.item:=’语文’; Sheet1.Cells.item:=’数字’; Sheet1.Cells.item:=’英语’; Sheet1.Cells.item:=’化学’; Sheet1.Cells.item:=’物理’; Sheet1.Cells.item:=’几何’; Sheet1.Cells.item:=’成绩’; Sheet1.Cells.item:=78; Sheet1.Cells.item:=63; Sheet1.Cells.item:=52; Sheet1.Cells.item:=77; Sheet1.Cells.item:=66; Sheet1.Cells.item:=89; //设定图表座标轴范围 Cell1:=Sheet1.Cells.item; Cell2:=Sheet1.Cells.item; Range1:=sheet1.Range; Range1.Borders.Color:=27; //添加图表 Sheet1.ChartObjects.add(160, 40, 400, 280); sheet1.ChartObjects.Activate; //激活图表 sheet1.ChartObjects.Chart.charttype:=xlLineStacked; //指定图表为折线图 sheet1.ChartObjects; //建立数据end;
运行效果截图:
Delphi chart图表控件 一进入系统还没有产生数据就是这个样子,怎么让它变没有数据
用 Series1.Clear; 就可以了。
在编程模式下,双击Chart控件,选Series页,里面有项Data Source,默认是Random Values,改为No Data即可
如何用delphi做图表
用delphi自带的Excelapplication控件连接Excel,对Excel的数据进行数据读取,读取的数据放置在ClientDataSet中,后面就可以用DBChart控件做图表啦
delphi gantt chart怎么用
Delphi软件提供了图表部件Chart,可以生成条形图、折线图、饼图等各种形式,并允许具有三维外观等视觉特性。Chart包含两种不同的控件,分别用于创建一般数据图表和数据库图表,这两个控件分别是Additional页上的Chart控件和DataControls页上的DBChart控件。
Delphi chart图表控件怎么让两个柱形靠近点,隔的太远了 ,难看
只能前後加些Y值为零的数组,让表格等分增加。
嘿嘿 那你多加点Y的时间轴吧例如 201408 201410 201412 。。。。。。。。
更多文章:
java基础知识点思维导图(搞Java的年薪40W是什么水平)
2024年6月23日 17:19
论坛管理系统数据库(Discuz,论坛的数据库配置文件是哪个)
2024年7月3日 02:36
c语言数组从小到大(c语言编程实现把整形数组a[6]按照从小到大升序排列)
2024年8月27日 01:15
oracle10g升级到11g(oracle10g rac 数据怎么迁移到 oracle 11g rac)
2024年6月13日 09:00
js replace替换最后一个(js 替换字符串中最后一个逗号为冒号)
2024年9月26日 22:55
记事本vbs表白代码(抖音表白代码电脑弹窗表白怎么制作附制作方法)
2024年4月2日 07:19
js正则表达式分组匹配(js 正则表达式 匹配,必须由数字字母特殊符号组成的一段字符)
2024年7月22日 20:17
prefetch count(如何测试 rabbitmq 的性能)
2024年7月22日 10:15