chart创建图表的问题，在线等待

Question

如果文件格式是.txt文件，这个文件中是1971-2002年7月和4月的气温
我想用一个曲线显示，程序如下
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
const
FileName='temperature.txt';//指定数据文档的名称procedure TForm1.FormCreate(Sender: TObject);
var
F:TextFile;
year,July,April:Integer;//year、July、April分别对应着文档中的年份、七月和四月的平均气温
begin
 AssignFile(F,FileName);
 Reset(F);
 while not Eof(F)do    //遍历文档中的数据
  begin
  Read(F,year,July,April);
  Series1.AddXY(year,July,'',clTeeColor);//系列1显示七月份的平均气温数据
  Series2.AddXY(year,April,'',clTeeColor);//系列2显示四月份的平均气温数据
end;end ;请问是不是要连接数据源
应该怎么连接，麻烦详细告诉我

Answer 1

你是气象部门的吧
我做过一个整编资料的程序，给我写信，我发源码[email protected]

Answer 2

你自己编代码用AddXY将数据加到TChart，不需要连数据库，你的方法已经可以实现了
如果需要连数据库的话，你应该用TDBChart,series.DataSource:=<表>; //从TDataSet 继承的 组件，例如 TTable, TQuery, TADOQuery等series.YValues.ValueSource:=<表>.FieldByName(<字段名>);
series.YValues.ValueSource:=<表>.FieldByName(<字段名>);series.XLabelsSource:=<表>.FieldByName(<字段名>);
series.Title=<表>.FieldByName(<字段名>);

Answer 3

我喜欢编画图：
   不必需要连接数据库：
   步骤（以矩形图为例）：
  一：创建数据数组：
    VALUE[1..COUNT]//数据值数组
    NAME[1..COUNT]//下标名数组
    如果事先不知道COUNT的大小，可以采用动态数组，然后将各数据值存入相应数组中。
  二：画图
    放一个CHAT控件到窗体中，增加一个SERIES1，接着做
   Series1.clear;
   for i:=1 to count do
   begin
    Series4.Add(value[i],name[i]); 
   end;