importar desde excel en lazarus

[kapcomx]

ke tal amigos, muy buenos dias, les comento lo sig estoy empezando con lazarus, la verdad esta muy bien, hasta ahora no he tenido mayores problemas, uso mysql zeos y todo va bien, el punto es que tengo que leer datos de un excel y meterlos a una tabla.

estoy desarrollando bajo ambiente ubuntu 14.04 lts, tengo el lazarus 1.4.4 y me he instalado los componentes fpspreadsheet, se que necesito usar el componente TsWorkBookSource. el punto aqui es que desconozco totalmente como funciona este componente, tal algunos de los compañeros que estan mas avanzados en lazarus tenga a la mano algún ejemplo o me pueda indicar como poder leer el archivo de excel, (csv). que propiedades de este componente usar.


De antemano les agradezco su atención Saludos....

[Casimiro Notevi]

En la wiki de Lazarus tienes un ejemplo para leer y escribir. Échale un vistazo.
http://wiki.lazarus.freepascal.org/F...application/es

Básicamente:

Código Delphi [-]
{ Carga el fichero de hoja de cálculo seleccionado por la acción estandar FileOpen }
procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  sWorkbookSource1.AutodetectFormat := false;
  case FileOpen1.Dialog.FilterIndex of
    1: sWorkbookSource1.AutoDetectFormat := true;         // Todos los ficheros de hoja de cálculo soportados.
    2: sWorkbookSource1.AutoDetectFormat := true;         // Todos los ficheros Excel.
    3: sWorkbookSource1.FileFormat := sfOOXML;            // Excel 2007+.
    4: sWorkbookSource1.FileFormat := sfExcel8;           // Excel 97-2003.
    5: sWorkbookSource1.FileFormat := sfExcel5;           // Excel 5.0.
    6: sWorkbookSource1.FileFormat := sfExcel2;           // Excel 2.1.
    7: sWorkbookSource1.FileFormat := sfOpenDocument;     // OpenOffice / LibreOffice.
    8: sWorkbookSource1.FileFormat := sfCSV;              // Ficheros de texto CSV.
  end;
  sWorkbookSource1.FileName :=FileOpen1.Dialog.FileName;  // Esto finalmente carga del fichero.
end;

[kapcomx]

ke tal casimiro, pues si ya lei la wiki de lazarus pero como que no le entendi muy bien, como sea ya pude lograr la importacion, les comento lo sig por si a alguien le sirve
1. colocar las siguientes uses

Código Delphi [-]
LazUTF8, fpsTypes, fpsUtils, fpspreadsheet, xlsbiff2

2. colocar un control tsworkbooksource. en mi caso lo nombre wbook
3. declarar una variable de tipo worksheet y un open dialog

Código Delphi [-]
MyWorksheet: TsWorksheet;

4. el sig codigo.

Código Delphi [-]
od1.Execute;
  wbook.FileName:= od1.FileName;

  MyWorksheet := wbook.Workbook.GetFirstWorksheet;
  showmessage(MyWorksheet.ReadAsUTF8Text(1,1));

en mi caso el open dialog se llama od1 y el tsworkbooksource se llama wbook.