DBGrid 中的数据导出到文本文件_delphi dbgrid里面的数据存到txt文件-优快云博客

本文链接：https://blog.youkuaiyun.com/qi_jianzhou/article/details/663120

本文介绍了一个实用的功能，即如何将Delphi中的DBGrid组件的数据导出到TXT文件中，包括标题和数据行。该过程涉及创建保存对话框以指定文件名，并通过遍历DBGrid的列来构建文本内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function 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;