读写文件的问题 ?!帮帮忙啊

Question

文件名test.dat打开如下(记事本)
请问它是怎样读写的？？非常感谢！！我的项目用到!最好具体点!
测井日期:2003-06-26
井    号:2
下井深度:3
流    压:
测压方式:5
测压点数:2223
仪器编号:    0.00246       0.00000       0.05175       27.50 
操 作 员:8
测试单位:9
文 件 名:邓广宇
 序号      时间(m)       压力(MPa)      温度(℃)
------------------------------------------------------
    1      0.00         0.000             15.2
    2      0.07         0.000             15.3
    3      0.17         0.000             15.4
    4      0.24         0.000             15.5
    5      0.33         0.000             15.6
    6      0.40         0.000             15.7
    7      0.51         0.000             15.7
    8      0.56         0.000             15.8
    9      0.68         0.000             15.9
   10      0.75         0.000             16.0
   11      0.83         0.000             16.1
   12      0.95         0.000             16.2
   13      1.02         0.000             16.3
   14      1.12         0.000             16.4
   15      1.22         0.000             16.5
   16      1.30         0.000             16.5
   17      1.36         0.000             16.6
   18      1.47         0.000             16.7
   19      1.54         0.000             16.8

Answer 1

文件的格式很固定阿
你用readln，然后根据行数，字符位置和空格就能进行精确判断了。

Answer 2

用
var
  F: File of char;
  c: char;
begin
  Assignfile(F,'test.dat');
  reset(F);
  read(F,c);
  CloseFIle(F);
end;//自定义格式的文件,按照作者的规则写入和提取的

Answer 3

var
  F: textFile;
  pname:array[1..10] of string[9];
  data:string[10];
  n1,n2,n3,n4,n5,n6:integer;
  s1,s2:string;
  r1,r2,r3,r4:real;
  parname1:string[10];
  parname2:string[15];
  parname3:string[15];
  parname4:string[10];
  parvalue:array[1..4] of real;begin
  Assignfile(F,'test.dat');
  reset(F);
  readln(F,pname[1],data);
  readln(F,pname[2],n1);
  readln(F,pname[3],n2);
  readln(F,pname[4],s1);
  readln(F,pname[5],n3);
  readln(F,pname[6],n4);
  readln(F,pname[7],r1,r2,r3,r4);
  readln(F,pname[8],n5);
  readln(F,pname[9],n6);
  readln(F,pname[10],s2);
  readln(F,parname1,parname2,parname3,parname4);
  readln(F);
  while not eof(f) do
  begin
    readln(F,parvalue[1],parvalue[2],parvalue[3],parvalue[4]);
  end;
  CloseFIle(F);
end;虽然有点烦,可是绝对行.