用delphi 对txt中内容导入数据库中

Question

我txt文件中的内容大概为：
jh: X11-12-21 rq: 2009/05/18
  11.03  1.33  11.01  1.32  10.99  1.30  10.97  1.28  10.92  1.26  10.87  1.24
  10.83  1.23  10.79  1.21  10.75  1.19  10.71  1.17  10.67  1.15  10.64  1.13
  10.60  1.11  10.55  1.09  10.51  1.08  10.46  1.06  10.42  1.04  10.38  1.02
  10.36  1.00  10.35  0.98  10.34  0.96  10.33  0.94  10.33  0.92  10.33  0.90
  10.35  0.88  10.36  0.86  10.37  0.84  10.37  0.82  10.36  0.80  10.36  0.78
jh: B21-12-21 rq: 2009/05/23
  11.03  1.33  11.01  1.32  10.99  1.30  10.97  1.28  10.92  1.26  10.87  1.24
  10.83  1.23  10.79  1.21  10.75  1.19  10.71  1.17  10.67  1.15  10.64  1.13
  10.60  1.11  10.55  1.09  10.51  1.08  10.46  1.06  10.42  1.04  10.38  1.02
  10.36  1.00  10.35  0.98  10.34  0.96  10.33  0.94  10.33  0.92  10.33  0.90
  10.35  0.88  10.36  0.86  10.37  0.84  10.37  0.82  10.36  0.80  10.36  0.78
数据之间空两行
如何将每段数据的第一行与对应的数据分别导入相应的字段中

Answer 1

var
  vString: TStringList;
  i: integer;
  str: string;
begin
  vString := TStringList.create;
  try
    vString.loadfile('文件名.txt');
    for i := 0 to vString.count - 1 do
    begin
      str := vString.strings[i];
//     ..自己处理吧！
    end;
  finally
    vString.free;
  end;
end;

Answer 2

readln函数读出来
判断string的长度写入不同的字段即可

Answer 3

pos,delete,copy三个函数组合使用，完全可以解决你的问题