原创 delphi 导出txt文本

一共用到3个组件，ADOQuery,DataSource,DBGrid

1）ADOQuery组件通过SQL语句实现对数据库数据的创建.更新.删除.提取.等等操作。

因为只是在DBGrid中显示，所以用到个查询语句。

设置ConnectionString属性， 

//*******************************************************

procedure TForm1.Button1Click(Sender: TObject);
var
  tfile: TextFile;
  i: Integer;
begin
//if not fileexists('d:\newdata.txt') then
 //   begin
  //      tfile:= filecreate('d:\newdata.txt');
  //      fileclose(tfile);
   // end;
    assignfile(tfile,'d:\newdata.txt');
    //reset(tfile);
    rewrite(tfile);
    begin
         //str1:=tstringlist.create;
        for   i:=1   to   ADOQuery1.recordcount   do    
        begin
          writeln(tfile,ADOQuery1.fieldbyname('BD_MCode').AsString + #9 + ADOQuery1.fieldbyname('BD_MName').AsString+ #9 +'123'+ #9 + '[' + #9 + ']');
          ADOQuery1.next;
        end;
  end;

   closefile(tfile);
   close;

end;
end.