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

[amartapple]

有一个txt文本，里面记录内容如下：（中间空格是tab）
名称 编号 数值 特征 地址 备注
....
.....

我要做以下处理

while 不是最后一行 do
begin
读出这一行的 名称，编号，数值，特征，地址，备注；
进行处理；
next;
end;

请问这段程序该如何写，谢谢！

[光明山人]

用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 ) 为 数值
...

[amartapple]

那怎么拷贝下一行，应该有个换行操作吧

[光明山人]

你可以用 TStringList.LoadFromFile，然后循环：

StringList1.LoadFromFile( 'txt文件' );
for i:=0 to StringList1.Count-1 do
begin
line := StringList1[i];
处理 line
end;