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

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;

运行效果：