delphi 提取txt文件中的数据流形成曲线图

Question

delphi 提取txt文件中的数据流形成曲线图之前提取excel，但这个excel有问题，问了厂家的人才知道它们生成的其实不是excel文件，它们也是提取txt文件来生成曲线图的。请问大家这个txt文件提取要怎么做啊？不会啊！！ 2.00000000000000E+0002  4.07915590655671E+0004  0.00000000000000E+0000  0.00000000000000E+0000  0.00000000000000E+0000
 2.37000000000000E+0002  2.50000000000000E-0004  0.00000000000000E+0000  6.71000000000000E-0003 -4.00000000000000E+0000  4.70000000000000E+0001
 2.42000000000000E+0002  1.25000000000000E-0004  0.00000000000000E+0000  6.71000000000000E-0003 -4.00000000000000E+0000  9.40000000000000E+0001
 2.44500000000000E+0002  1.25000000000000E-0004  0.00000000000000E+0000  1.06750000000000E-0002 -4.00000000000000E+0000  1.56000000000000E+0002
 2.51500000000000E+0002  1.25000000000000E-0004  0.00000000000000E+0000  1.46400000000000E-0002 -3.00000000000000E+0001  2.19000000000000E+0002
 2.78500000000000E+0002  1.25000000000000E-0004  0.00000000000000E+0000  1.86050000000000E-0002 -3.00000000000000E+0001  2.81000000000000E+0002
 3.14500000000000E+0002  1.25000000000000E-0004  0.00000000000000E+0000  3.38550000000000E-0002 -3.00000000000000E+0001  3.28000000000000E+0002
里面的数据是这样的，我对照excel那个文件倒是能分辨出应该取几位。
237 0.00025 0 0.00671 -4 47
242 0.000125 0 0.00671 -4 94
244.5 0.000125 0 0.010675 -4 156
251.5 0.000125 0 0.01464 -30 219
278.5 0.000125 0 0.018605 -30 281
314.5 0.000125 0 0.033855 -30 328
前六条数据是这样的

Answer 1

那不是以空格分开吗，那就读出每一行，以空格分隔（TStringList可以干），然后计算到界面点坐标

Answer 2

我已经用adoconnection和adoquery连接上这个txt了，从dbgrid里显示怎么好奇怪啊，把第一行当做题目来显示，下面，就只显示第一列的不是0的数字呢？
接下来要怎么做呢？

Answer 3

为啥用adoconnection和adoquery？
直接读txt不就成了？

Answer 4

学习学习先
继续顶一下
顶顶帖子高手们
也请多多赐教
http://topic.csdn.net/u/20110709/12/3ec63017-cef8-41e0-a524-c9b9dfe56d5c.html
http://topic.csdn.net/u/20110611/12/3258c959-4f28-46b7-b5d6-46135d73036b.html
http://topic.csdn.net/u/20110722/14/89f7440b-c4d7-4c9a-a4bb-a503f5135db2.html
http://topic.csdn.net/u/20110729/10/a7bfaf06-0cf9-4580-8e91-d4e0b92066c6.htmlhttp://topic.csdn.net/u/20110811/16/e56e7cc1-d8c9-40af-92e3-c24ca103d17d.html
http://topic.csdn.net/u/20110830/13/dfae4ca5-d2b9-4889-8a3c-6f7fb61936c9.html
http://topic.csdn.net/u/20110831/17/427b6ab0-66c6-4f33-af26-ebd27b0dc541.html
http://topic.csdn.net/u/20110901/09/83c2c668-cbe6-4db9-966d-bf2f47456811.html
http://topic.csdn.net/u/20110905/12/a1161adb-8e5d-491a-b302-c9722edf2dab.html
http://topic.csdn.net/u/20110906/10/86d49517-b7a6-4fae-982b-478d2d6e2a23.html

Answer 5

Delphi中读取文本文件AssignFile判断文件是否存在Reset打开文件
Read或Readln读一行
CloseFile关闭文件
更详细的可以看下面的文章
一篇介绍

Answer 6

两个问题：1.取得数据 2.画图，画图可以用TChart

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  FileN: String;
  Data1, Data2, Data3,Data4,Data5,Data6: Double;
begin
  FileN := ExtractFilePath(Application.ExeName) + '数据文件.txt';
  if FileExists(FileN) then
  begin
    AssignFile(f, FileN);
    Reset(f);
    while not Eof(f) do
    begin
      ReadLn(f, Data1, Data2, Data3,Data4,Data5,Data6);
      //用chart画曲线
      chart1.Series[0].AddXY( Data2, Data1,'',clBlack);    end;
    CloseFile(f);
  end;
end;

Answer 8

最后我使用的是把txt里的数据导入到sql数据表中，然后再用delphi显示的。有些麻烦，但真的不会了。