Buen día.
Esperando se encuentren bien, he estado buscando hace varios días información relacionado a como leer archivos CSV, pero por más que busqué, no encontré una información concreta hasta que llegué a esta solución y quiero compartirla con ustedes, ya que de esta manera, aporto mi granito de arena.
Componentes a utilizar:
1) TJvCsvDataSet, (Para este deben tener instalado Jedi(JCL y JVCL)). En el siguiente link explica la forma de instalarlo.
Link.
2) OpenDialog
3) DBgrid
4) DataSource
5) Button
Configuración Básicas.
En la propiedad dataset del Datasource elegir el JvCsvDataSet.
En la propiedad datasource del Dbgrid elegir el Datasourse y con pocas lineas pueden buscar el archivo CSV y cargarlo al DBGrid.
Dentro del botón poner lo siguiente:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.FileName:= '*.CSV';
if OpenDialog1.Execute then
begin
JvCsvDataSet1.FileName:= OpenDialog1.FileName;
JvCsvDataSet1.Open;
end;
end;
Y eso es todo.
Espero les funcione.
He subido al FTP en la ruta: "http://terawiki.clubdelphi.com/Delphi/Proyectos/" un archivo llamado "Abrir Archivos CSV en Delphi7.rar"
Ruta directo del archivo para descargarlo: