如何画一图表,数据是EXCEL中的几列数据,用Tchart 还是Texcelchart? ( 积分: 100 )

  • 主题发起人 主题发起人 sfsxyf
  • 开始时间 开始时间
S

sfsxyf

Unregistered / Unconfirmed
GUEST, unregistred user!
我想画一统计图表,一个X轴是时间,另有两轴Y,一个表示速度,一个表示温度,数据是EXCEL中的几列数据,用Tchart 应该可以画,谁能举个例子?
Texcelchart怎么在帮助中找不到,他是否能更适合解决该问题,如何用
 
我想画一统计图表,一个X轴是时间,另有两轴Y,一个表示速度,一个表示温度,数据是EXCEL中的几列数据,用Tchart 应该可以画,谁能举个例子?
Texcelchart怎么在帮助中找不到,他是否能更适合解决该问题,如何用
 
用TeeChart可以的,在TeeChart7中有相应的例子的
 
你能不能给我举个例子,我用delphi6,查TeeChart有很多文件,我看哪个呀,谢谢您,终于有人理我了
 
delphi自带的TeeChart有没有这个功能我不知道,(因为我装了TeeChart7)
在Tee7New工程是一个很大的例子,基本内容都有。
你看看你有没有这个单元?
unit Export_Excel;
{$I TeeDefs.inc}
interface
uses
{$IFNDEF LINUX}
Windows, Messages,
{$ENDIF}
SysUtils, Classes,
{$IFDEF CLX}
QGraphics, QControls, QForms, QDialogs, QExtCtrls, QStdCtrls, QComCtrls,
{$else
}
Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls,
{$ENDIF}
Base, TeeProcs, TeEngine, Chart, Series;
type
TExportExcelForm = class(TBaseForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Series1: TBarSeries;
Series2: TBarSeries;
Series3: TBarSeries;
Series4: TBarSeries;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Procedure ShowSavedFile;
public
{ Public declarations }
end;

implementation
{$IFNDEF CLX}
{$R *.DFM}
{$else
}
{$R *.xfm}
{$ENDIF}
Uses TeeStore, TeExport, TeeAbout;
procedure TExportExcelForm.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
{ nil = all series in Chart1 }
with TSeriesDataXLS.Create(Chart1,nil)do
try
IncludeIndex:=CheckBox1.Checked;
IncludeHeader:=CheckBox2.Checked;
SaveToFile(SaveDialog1.FileName);
ShowSavedFile;
finally
Free;
end;
end;
end;

procedure TExportExcelForm.Button2Click(Sender: TObject);
begin
TeeExport(Self,Chart1)
end;

procedure TExportExcelForm.FormCreate(Sender: TObject);
begin
inherited;
Chart1.SeriesList.FillSampleValues(6);
end;

Procedure TExportExcelForm.ShowSavedFile;
begin
GoToURL(Handle,SaveDialog1.FileName);
end;

initialization
RegisterClass(TExportExcelForm);
end.
 
我没有找到您所的单元,我现在只有这么做!
用OLE把EXCEL中的数据读到内存中,后在CHART中ADDXY,可从EXCEL中读数时间很长,你有好的方法吗?
 
我觉得你你应该去下载一个TeeChart,delphi自带的版本太低,不能使用动态数组,显示也会很慢。
 
后退
顶部