Delphi DBGrid 导出csv

最新推荐文章于 2020-09-22 09:51:32 发布

原创最新推荐文章于 2020-09-22 09:51:32 发布 · 3.4k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 同时被 3 个专栏收录

6 篇文章

订阅专栏

DBGrid

1 篇文章

订阅专栏

CSV

1 篇文章

订阅专栏

本文介绍了如何使用Delphi编程语言中的TDBGrid和TQuery组件将数据库网格数据导出为CSV文件的过程。通过创建一个字符串列表来收集列标题，并遍历查询结果，将每行数据转换为逗号分隔的字符串，最终将其保存为CSV文件。

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

procedure OutPutDBGridToCSV(AGrd:TDBGrid; AQuery: TQuery);
var
i,ColNum: Integer;
Title,Data,SaveName: String;
ALst: TStringList;
begin
try
ALst:=TStringList.Create;
ALst.Clear;

ColNum:=0;
ColNum:=AGrd.Columns.Count-1;

    Title:='';
    Title:='"'+AGrd.Columns.Items[0].Title.Caption+'"';
    for i := 1 to AGrd.Columns.Count-1 do
    begin
      Title:=Title+',"'+AGrd.Columns.Items[i].Title.Caption+'"';
    end;
    ALst.Add(Title);

    with AQuery do
    begin
      First;
      while not Eof do
      begin
        Data:='"'+FieldByName(AGrd.Columns.Items[0].FieldName).AsString+'"';
        for i := 1 to ColNum do
        begin
          Data:=Data+',"'+FieldByName(AGrd.Columns.Items[i].FieldName).AsString+'"';
        end;
        ALst.Add(Data);
        Next;
      end;
    end;
    SaveName:=FormatDateTime('yyyyMMDDhhmmss',Now);
    SaveName:='C:\'+SaveName+'.csv';
    ALst.SaveToFile(SaveName);
finally
    ALst.Free;
end;
Application.MessageBox(PChar('文件保存至'+SaveName),'系统提示',64);

end;