Ver Mensaje Individual
  #2  
Antiguo 19-01-2016
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.671
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
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;
Responder Con Cita