如何按顺序将文本文件中的数写到表中

Question

比如一个文本文件中的数据如下：
1   6
2   7
3   8
4   9
5   10
其中第一列的1,2,3,4,5为一条记录的内容（由表中的横排变为了竖排），6,7,8,9,10为一条记录的内容。
我现在打算从文本文件将数据写到表的记录中去，按上述条件该如何实现？

Answer 1

Var
  FList: TStringList;
  tmpStr: String;
Begin
  FList:= TStringList.Create;
  FList.LoadFromFile(TextFileName);
for i:=0 to flist.count-1 do
begin
table1.insert;
table1.fieldbyname('fieldname1').asstring:=copy(flist[i],1,1);
table1.fieldbyname('fieldname2').asstring:=copy(flist[i],3,1);
具体位置你自己判断.
end;

Answer 2

也可以把文本文件当作一个数据表来处理，如上资料，你这样处理
id1,id2
1 , 6
2 , 7
3 , 8
4 , 9
5 , 10
.....
然后用就可以象操作其他数据库表一样操作该文本文件了。