Delphi DBGrid 导出csv

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;

转载于:https://www.cnblogs.com/Little-Star/p/7485437.html

• 点赞
• 收藏
• 分享
• 文章举报