Delphi FireDAC TFDDataMove 导出csv-木庄网络博客

本文整理自网络，侵删。

 var
  fld: TField;
  lst: TStringList;
  wasActive: Boolean;
  writer: TTextWriter;
begin
  writer := TStreamWriter.Create(FileName);
  try
    lst := TStringList.Create;
    try
      lst.QuoteChar := '"';
      lst.Delimiter := ';';
      wasActive := DataSet.Active;
      try
        DataSet.Active := true;
        DataSet.GetFieldNames(lst);
        writer.WriteLine(lst.DelimitedText);
        DataSet.First;
        while not DataSet.Eof do begin
          lst.Clear;
          for fld in DataSet.Fields do
            lst.Add(fld.Text);
          writer.WriteLine(lst.DelimitedText);
          DataSet.Next;
        end;
      finally
        DataSet.Active := wasActive;
      end;
    finally
      lst.Free;
    end;
  finally
    writer.Free;
  end;
end;

Delphi FireDAC TFDDataMove 导出csv

相关推荐

评论