怎么从一个txt文件按格式读出数据

Question

有一个txt文本，里面记录内容如下：（中间空格是tab）
名称    编号     数值     特征     地址      备注
....
.....我要做以下处理while 不是最后一行 do
begin
  读出这一行的 名称，编号，数值，特征，地址，备注；
  进行处理；
  next;
end;请问这段程序该如何写，谢谢！

Answer 1

用PosEx 和 Copy：p, q: integer;p := 1;
q := PosEx( #9, line, p );
Copy(line, p, q-p ) 为 名称
p := q+1;
q := PosEx( #9, line, p );
Copy(line, p, q-p ) 为 编号
p := q+1;
q := PosEx( #9, line, p );
Copy(line, p, q-p ) 为 数值
...

Answer 2

你可以用 TStringList.LoadFromFile，然后循环：StringList1.LoadFromFile( 'txt文件' );
for i:=0 to StringList1.Count-1 do
begin
  line := StringList1[i];
  处理 line
end;