Question

关于Delphi中读取text格式文件并存入数据库的问题

我想请教一下，txt格式的文件形式如下图，我想只读取里面的两竖行数字，并存入一个数据库的表文件中。第一次干这事，对txt的读取格式不了解，希望有朋友能指导一下，谢谢！





Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var A:TStringList  ;
    i,conI:Integer;
    L:TStringList  ;
    s:string;
    vItem: TListItem;
begin
   A:=TStringlist.Create()  ;
   A.LoadFromFile('d:\tt.txt');   //读取txt文件
   conI:=A.Count;       //获取行数
   for i:=0 to conI-1 do        //循环读取行数
   begin
      s:=Trim(A.Strings[i]);
      L:=TStringList.Create();
      L.CommaText:=s;           //以逗号为分隔符分隔每行的字符
      //以下我是把每行的头3段写入到一个ListView里，如果你是要存入数据库则改成相应的代码
      vItem := ListView1.Items.Add;
      vItem.Caption:=L[0];
      vItem.subItems.Add(L[1]);
      vItem.subItems.Add(L[2]);
   end;
end;

运行效果：

追问

首先很感谢您，我知道您的代码很正确，不过我编程基础很差，对vItem不懂。
我想补充问一下：txt中前面三排的信息我不要，我想读取里面的两竖列数字，并存到paradox的表文件中，我想用SQL.insert的方式存入表的两个对应的字段中，然后在DBGrid中显示，并用DBchart（不记得是不是这个了）绘制曲线图。麻烦您能指导一下吗？谢谢~

追答

你说的东西太多了，一下子不知道怎么回答。QQ：361408996