![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
||||
|
||||
¿te servirar en un archiuvo csv?
Ojalá te sirva... el parametro final puedes pasarlo en blanco, sirve para agregar un resumen....
salida es un componente TSaveDialog. Procedure TFrm_main.Exportar_Excel(XDataset:TSimpleDataSet;Final:String); var i:Integer; salida:TextFile; begin if guardar.Execute then Begin assignFile(salida,guardar.FileName); Rewrite(Salida); with XDataset do Begin DisableControls; First; for i:=0 to Fieldcount-1 do Begin write(salida,fields[i].fieldName+';'); end; Writeln(Salida); while not eof do Begin for i:=0 to Fieldcount-1 do Begin write(salida,fields[i].asstring+';'); end; writeln(salida); next; end; EnableControls; end; writeln(salida); writeln(salida,Final); CloseFile(salida); end; end; Saludos |
|
|
![]() |
|