Cómo abrir archivos CSV con FireDac (Delphi XE5) en pocos pasos

[amadis]

Estimados colegas, este post surge a raíz de la necesidad de levantar archivos csv a una tabla para luego trabajar con ella, en mis comienzos (2005) lo había hecho en Delphi 7 y el TJvCsvDataSet de las Jedi, paquete que instalé con cientos de componentes sólo para el CSV. Y así como ese caso podría enumerar varios más… Con mi escaso conocimiento buscaba fuera lo que no sabía hacer sin componentes de terceros o lo desconocía, todos mis programas de esa época aún funcionan, lo único que al par de años tenía pereza de funcionar era el querido Delphi 7 con millones de componentes que no usaba. Que luego fui depurando casi en su totalidad.

Luego di un salto enorme a XE5 con el sigo trabajando prácticamente sin componentes de terceros, y me he visto en la necesidad de actualizar mi viejo programa que leía archivos CSV para efectuar actualizaciones de precios a un soft de gestión.
Si bien el SCV es un formato muy común para intercambio y exportación de datos, desde ese entonces no lo había vuelto a utilizar a través de mis programas con una interface. Luego de investigar y probar con ADO, lo cual funciona pero tuve inconvenientes abriendo archivos de estructura variable y desconocida, seguí profundizando y viendo que otra cosa me estaba perdiendo del XE5. Ya que la mayoría, cuando aprendemos algo y si funciona lo utilizamos mientras se pueda, en parte algunos desconfiamos de lo nuevo pero lo principal es el tiempo de aprendizaje del que muchas veces no disponemos.

Finalmente la aventura me llevó a probar FireDAC, aproveché la oportunidad y experimenté conexiones con MySql, Firebird y AdvantageDatabase (SyBase) que son las bases con las que suelo trabajar, me sorprendió la sencillez.
Yendo al grano y sin más rodeos, luego de recorrer cantidad de foros buscando info sobre este punto y habiendo encontrado poco en concreto he decidido compartirlo con todos ustedes para facilitar el aprendizaje a otros.

En el proyecto demo que voy a describir utilicé un Formulario (Form1 – principal.pas), algunos Tlabel sin importancia, 2 Tedit, (uno para ruta del csv y otro para el separador), un TOpendialog, u Tbutton para ejecutar el Opendialog de búsqueda de archivo., Un Tbitbutton (Kind:= BkClose).
Un datasource y Dbgrid para visualizar el contenido, y lo indispensable de FireDAC que son TFDGUIxWaitCursor, TFDMemTable y TFDDataMove.

El trabajo se realiza con los dos últimos, primero creamos el FDMemTable1 y luego el FDDatamove1, en este último asignamos como destino el FDMemtable1.
Y luego debemos especificar la estructura de los archivos que vamos a abrir, esto podemos hacerlo en tiempo de diseño, y dejar establecidos los parámetros pero funcionará correctamente sólo con archivos de la misma estructura.
Como necesito abrir archivos donde se desconoce de antemano (al momento de programar) cuál será la estructura, lo hacemos en Tiempo de Ejecución, lo cual implica sólo unas pocas líneas de código.

Por lo que he visto lo componentes que he usado siguen vigentes hasta XE8, luego a partir de Seattle surgen unos cambios de nombre y reemplazos pero la lógica es similar.

Aquí debajo está el código del botón que ejecuta el Opendialog y luego se encarga del proceso de carga. También se adjunta el proyecto , que debería funcionar en todas las versiones de delphi XE hasta la 8

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
opendialog1.InitialDir := GetCurrentDir;
  if opendialog1.Execute
    then
      begin
          FDMemtable1.free;    //  destruimos componentes para eliminar datos default y cargados anteriormente
          FDDataMove1.Free;    //   idem anterior

          FDMemtable1 := TFDMemTable.Create(Form1); // creamos
          FDDataMove1:= TFDDataMove.Create(Form1);
          DataSource1.DataSet := fdmemtable1;   // vinculamos la tabla al datasource
          FDDataMove1.Options := [poOptimiseDest, PoClearDest]; // optimizacion y limpieza del destino (la limpieza no me funcionó todas las veces, por eso destruyo antes de comenzar).
          FDDataMove1.TextFileName := opendialog1.FileName;   // cargamos archivo desde un opendialog.
          FDDataMove1.GuessTextFormat ([ taDelimSep,taHeader,taFields]); // este comando crea la estructura de datos según adivina leyendo los primeros registros

          for i := 0 to FDDataMove1.TextDataDef.Fields.Count-1           //  para evitar problemas con campos FLOAT paso todos los campos a String.
            do  FDDataMove1.TextDataDef.Fields[i].DataType := atString;    // De no hacerlo he tenido errores [FireDAC][Comp][DM]-607. Bad text value [17,5] format for mapping item [->B]. '10,24' is not a valid integer value.

          FDDataMove1.TextAnalyzeSample := 50;  // El default es 10, con esto profundizamos el analisis para adivinar estructura de tabla y campos
          FDDataMove1.TextDataDef.Delimiter := #0;  // opcional, para campos sin QUOTED VALUES "valor" que es la opción default del componente

          FDDataMove1.TextDataDef.Separator :=  edsepara.Text[1]; // indicamos separador de campos en este caso ';'
          FDDataMove1.TextDataDef.RecordFormat := rfCustom;  // si usamos la configuración anterior de DELIMITER debemos pasar RecordFormat a rfCustom
          FDDataMove1.Destination := FDMemTable1;     // asignar el destino a la tabla en memoria FDMemtable1
          FDDataMove1.SourceKind := skText;    // tipo del origen, default es skDataSet, debemos usar skText para los CSV
          FDDataMove1.TextAnalyze := []; // Eliminamos parametros para evitar  conflictos, de esta forma toma la estructura adivinada previamente, sino vuelve a analizar

          FDDataMove1.Execute;   // y Eureka!   Tenemos los datos en la tabla y visibles en el Dbgrid
    end;

end;

Si no van a trabajar con campos FLOAT, pueden omitir el FOR.

Espero resulte de utilidad!