Delphi DBGrid 保存TXT

本文整理自网络，侵删。

 function TForm1.DBGridToTxt(aDBGrid:TDBGrid;isTitle:boolean):boolean;var s:string;
 FileName:string; sTemp:TSTrings; i : integer; j : integer; SFD:TSaveDialog; RecNo:integer;begin  SFD:=TSaveDialog.Create(nil);  SFD.Filter:='文本文件|*.TXT';   SFD.DefaultExt := '.TXT';
   sTemp := TStringList.Create;   try if SFD.Execute then Begin FileName := SFD.FileName; if isTitle then // 带标题 begin s := ''; for i := 0 to aDBGrid.Columns.Count-1 do begin if aDBGrid.Columns[i].Visible then s := s + Format('%s'+ '|',[aDBGrid.columns[i].title.caption]); end; sTemp.Add(s); end; RecNo := aDBGrid.DataSource.DataSet.RecNo; aDBGrid.DataSource.DataSet.DisableControls; aDBGrid.DataSource.DataSet.First; while not aDBGrid.DataSource.DataSet.Eof do begin s := ''; for j:=0 to aDBGrid.Columns.Count-1 do begin if aDBGrid.Columns[j].Visible then s := s + Format('%s',[aDBGrid.DataSource.DataSet.FieldByName( aDBGrid.Columns[j].FieldName).asString])+'|'; end; sTemp.Add(s); sTemp.Add(''); aDBGrid.DataSource.DataSet.Next; end; sTemp.SaveToFile(FileName); aDBGrid.DataSource.DataSet.RecNo := RecNo; aDBGrid.DataSource.DataSet.EnableControls; end; finally SFD.Free; sTemp.Free; end;end; 

相关阅读 >>

Delphi windows 编程[5] - 学习窗体生成的过程五

Delphi 枚举所有电脑磁盘

Delphi rewrite 以可写方式打开文件

Delphi 10.3.1 android沉浸式透明状态栏

Delphi 获取当前进程的父进程

Delphi用sendmessage获取目录下所有文件

Delphi datetimetostr函数专用优化版

Delphi 从文件中读取图像类型

Delphi实现身份证号码15到18位升位算法

Delphi如何粘贴html格式文本到windows剪切板

更多相关阅读请进入《Delphi》频道 >>