aaa.txt

来自「用DELPHI写一段可以在本地生成一个文本文档并保存数据的代码」· 文本 代码 · 共 24 行

  procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      Tablenamestr:   string;   
      Expstr,Where,kong:   string;   
      StrOut:   tstringlist;   
      i:integer;   
      //DateTime:   TDateTime;   
  begin   
      ……                 
      ……                           
      StrOut:=tstringlist.Create;     
      While   Not   Query1.Eof   do   
      begin   
          Expstr:='';   
          For   i:=0   to   query1.FieldCount-1   do   
              Expstr:=Expstr   +   query1.Fields[i].AsString   +   '|||';   //我用‘|||’做    
          delete(Expstr,length(Expstr)-2,3);     //删掉最后一个‘|||’                                         
          StrOut.Add(Expstr);                                                                     
          query1.Next;   
      end;   
      StrOut.SaveToFile('E:\new\'   +   tablenamestr   +   '.txt'   );     //导出到文本文档   
  end;   
  end;