将 DbGrid查询内容的导出为Txt函数——Delphi

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   DbgridToTxt(dbgrid1);
4. end;
6. procedure Tform1.DbgridToTxt(source:Tobject);
7. var
8.   filename:Textfile;
9.   Dataset:Tdataset;
10.   titlestr,valuestr,tempstr:string;
11.   counter:integer;
12. begin
13.   if (source is Tdbgrid)then
14.     Dataset:=Tdbgrid(source).DataSource.DataSet
15.     else
16.       Dataset:=TDataset(source);
17.   if ((Dataset.IsEmpty)or(not Dataset.Active))then
18.     exit else
19.     begin
20.       Dataset.DisableControls;
21.       Dataset.First;
22.       if savedialog1.Execute then
23.         begin
24.           assignfile(filename,savedialog1.FileName);
25.           rewrite(filename);
26.           for counter:=0 to Dataset.FieldCount-1 do
27.           titlestr:=titlestr+char(9)+Dataset.Fields[counter].DisplayLabel;
28.           titlestr:=trim(titlestr);
29.           writeln(filename,titlestr);
30.           while not Dataset.Eof do
31.             begin
32.               valuestr:=';
33.               for counter:=0 to Dataset.FieldCount-1 do
34.               begin
35.                 tempstr:=Dataset.Fields[counter].Text;
36.                 valuestr:=valuestr+char(9)+tempstr;
37.               end;
38.               valuestr:=trim(valuestr);
39.               writeln(filename,valuestr);
40.               Dataset.Next;
41.             end;
42.               closefile(filename);
43.           end;
44.               Dataset.EnableControls;
45.     end;
46. end;