请问怎样将dbgrid的内容保存到文件

解决方案 »

  1.   

    如果是保存它的列格式,用:
      DBGrid1.Columns.SaveToFile('g:\a.txt');
    如果是保存数据,用:
      DataSetProvider1.DataSet := DBGrid1.DataSource.DataSet;
      ClientDataSet1.ProviderName := DataSetProvider1.Name;
      ClientDataSet1.Open;
      ClientDataSet1.SaveToFile('g:\a.xml', dfXML);————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    我用的是DevExrepss cxGrid,它有导出功能,格式还不错
      

  3.   

    就偶笨,偶讨厌第三方控件,偶得自己写函数导出到Excel文件.
      

  4.   

    笨方法
    procedure TForm1.Button1Click(Sender: TObject);
    var
    i,j:integer;
    tempstring:string;
    stringlist:tstringlist;
    begin
    stringlist:=tstringlist.create;
    tempstring:='|  ';
    table1.first;
     while not table1.eof do
      begin
        for i:=0 to table1.recordcount-1 do
          begin
             for j:=0 to table1.fieldcount-1 do
               begin
               tempstring:=tempstring+table1.fields[j].asstring+'|  ';
               end;
          stringlist.Add(tempstring);
          tempstring:='|  ';
          table1.next;
          end;
      end;
    stringlist.savetofile('c:\111.txt');
    stringlist.Clear;
    tempstring:='';
    end;
    本段代码针对数据量小的情况下应用,如果数据量非常多建议三方控件