关于delphi画图问题

Question

delphi高手们，我遇到一个问题，实验数据保存成文本格式，然后我要以其中相应一列为数据画出对应的曲线坐标图，请问该如何？一般书上的都是通过数据库来处理这个的。

Answer 1

很简单的,用Teechart.delphi本身就有它的例子,另外,读入文本可用delphi的TStringList
var
  t:TStringList;
begin
  t:=TStringList.Create;
  t.LoadFromFile('你的文件');
对于TStringList的使用,也可它的HELP

Answer 2

通过数据库来做,相对来说读取保存查询数据比较容易,如果你的程序要求不高,可以使用单机版的数据库如Access等,比较方便

Answer 3

用TeeChart画，他有例子的，很简单，自己研究一下。

Answer 4

很感谢各位的回复。但是我是新手，对于有些问题我还是没有具体搞明白。我通过实验，比如有七个参数：x,y,z,a,b,c,d.测出了这7个参数的值，但每个参数都有好几千行的数据。这些数据都是通过采集卡直接保存在了电脑里面的txt文件和dat文件。我想把每一个参数的变化曲线求出来。我试着编了一些程序，有读取文本内容的小程序，也有从access中读取数据来画坐标抽的小程序。但是两者我无法联系起来。还有一个小问题，我通过数据导入，将txt中的数据导入到了access中，它只有这七个参数的值，然后就是序列号。如何设置横坐标来画出这些曲线？谢谢各位高手再次解答我的疑问？

Answer 5

以下是我自己写的程序，有点问题的。
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
  with ADOQuery1 do
  begin
    Close;    SQL.Clear;
    SQL.Add('select distinct 字段1 from win');
    Open;
  end;
  for i := 0 to ADOQuery1.RecordCount - 1 do
  begin
    ADOQuery1.Next;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   with ADOQuery1 do
  begin
    SQL.Add('SELECT 字段2 FROM win where 字段1
    between :1 to  :1000');
  end;
  Series1.DataSource:=ADOQuery1;
  Series1.YValues.ValueSource:='字段2';
  Series1.XLabelsSource:= '字段1';end;

Answer 6

横坐标要你自己定的,如时间或数据组号(1,2,3...自然数),你最终要画的曲线自己应该知道的.
7个参数应该是7条曲线吧,你可以看一下Teechart,它可以直接从数据库中取数据的.
delphi的例子在:
\Program Files\Borland\Delphi6\Demos\TeeChart
中,研究一下它是怎么实现的
另外,上面的程序FormCreate不知你要做什么?是全部程序的话,它什么都没做
还有
SQL.Add('SELECT 字段2 FROM win where 字段1 between :1 to :1000');
中加":"是什么意思?参数,那后面也不要用:1000啊,"to"也不对
正确的应该是:
SQL.Add('SELECT 字段2 FROM win where 字段1 between 1  and  1000');