Question

delphi中怎么实现将txt内容存入数据库表

例如:
将a.txt:
00001 鸟人
00002 猪人 注:00002与猪人之间是按tab所得的空格而不是一般的空格,也不是逗号,如果要把它改了的话,浪费时间,因为有太多要改的.
存入数据库表tabl1(id,name).要对应的字段.最后效果为tabl1中
id name
00001 鸟人
我说这么多不懂大虾们能否听得懂我说什么.小鸟初涉delphi望大虾赐教.
分不多,不好意思....

Answer 1

先把这个TXT读到一个Memo里，再从头到尾循环这个Memo。
将每一行的字符串分解。然后用语句插入数据表。

示例：
memo1.Lines.Clear;
memo1.Lines.LoadFromFile(OpenDialog1.FileName);

with memo1 do
for I:=0 to Lines.Count-1 do
begin
vLine := trim(lines.Strings[i]);
if vline = '' then continue;
Dataset1.Append;
Dataset1.FieldByname('ID').asstring:=Trim(Copy(vLine,1,5));
Dataset1.FieldByname('Name').asstring:=Trim(Copy(vLine,7,10));
end;