笨方法 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; 本段代码针对数据量小的情况下应用,如果数据量非常多建议三方控件
DBGrid1.Columns.SaveToFile('g:\a.txt');
如果是保存数据,用:
DataSetProvider1.DataSet := DBGrid1.DataSource.DataSet;
ClientDataSet1.ProviderName := DataSetProvider1.Name;
ClientDataSet1.Open;
ClientDataSet1.SaveToFile('g:\a.xml', dfXML);————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
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;
本段代码针对数据量小的情况下应用,如果数据量非常多建议三方控件