Exportar consulta a CSV

[delphi.com.ar]

Te recomiendo este hilo:
http://www.clubdelphi.com/foros/show...23&postcount=2

[Drahcir]

Yo utilizo este:

Código Delphi [-]
 
procedure TOdExportaDatos.DataSetToCsv(pDataSet : TDataSet; psRutaFichero : String);
var
  i : Integer;
  voFichero : TStringList;
  vsLinea : String;
  vsBookMark : TBookmarkStr;
begin
  vsBookMark := pDataSet.Bookmark;
  voFichero := nil;
  try
    voFichero := TStringList.Create;
    // Ponemos la cabecera
    vsLinea := '';
    for i := 0 to pDataSet.FieldCount - 1 do
      if pDataSet.Fields[i].Visible then
        vsLinea := vsLinea + '"' + pDataSet.Fields[i].DisplayName + '",';
    voFichero.Add(vsLinea);
    // Insertamos los registros
    pDataSet.DisableControls;
    pDataSet.First;
    while not pDataSet.Eof do
    begin
      vsLinea := '';
      for i := 0 to pDataSet.FieldCount - 1 do
        if pDataSet.Fields[i].Visible then
          vsLinea := vsLinea + '"' + pDataSet.Fields[i].AsString + '",';
      voFichero.Add(vsLinea);
      pDataSet.Next;
    end;
    // Lo guardamos en disco
    voFichero.SaveToFile(psRutaFichero);
  finally
    FreeAndNil(voFichero);
    pDataSet.Bookmark := vsBookMark;
    pDataSet.EnableControls;
  end;
end;

Se llama de la siguiente manera:

DataSetToCsv(dsXXXX.DataSet, 'c:\Fichero.csv');

... o bien utilizando un SaveDialog.

[delphi.com.ar]

Empezado por Drahcir

Yo utilizo este:

Particularmente te sugiero el código que pase en el mensaje anterior, por una sencilla razón: En este código estas cargando toooodo el DataSet en un TStringList, y el TStringList esta alojado en memoria, por lo que si quiero generar un archivo de un DataSet grande.... ¡Imagina las consecuencias!
En el código que sugerí lo escribe directamente un un TStream, que si utilizas un TFileStream como en la función DataSetToFile, el dataset es escrito directamente en un archivo...

Saludos!

[Drahcir]

Lo que acabas de explicarme puede que me resuelva otro problema que he comentado en otro hilo.
Efectivamente yo estoy exportando el DataSet completo y me ha aparecido el problema de que necesito exportarlo a 4 ficheros .csv diferentes dependiendo del valor de un campo, no puedo crear DataSources y estoy un poco perdido. Voy a hechar un ojo a ver si puedo adaptarlo a mis necesidades.

Muchas gracias.