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 屏幕截图完美解决方案

Delphi xe7检查android蓝牙权限

Delphi 获取jpg文件宽度高度的方法

Delphi 键盘钩子的简单应用

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi 在rxrichedit中插入图片的完美解决方法

Delphi mscomm 发送接收

Delphi中的record怎么动态分配内存？

Delphi的idhttp报iohandler value is not valid错误的原因

Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】

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

转载请注明出处：木庄网络博客 » Delphi FireDAC TFDDataMove 导出csv