FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Problemas con Extract
Al usar el Extract me forma un archivo demasiado grande, de 27 megas, asi como inserta 4 y más lineas...de veras no comprendo.
Mi código dentro de un procedure es el siguiente var i : integer; f : TextFile; begin AssignFile(f,'c:\e8.txt'); ReWrite(f); IBExtract1.ExtractObject(eoData,'CLIENTES',[etData]); Memo1.Lines := IBExtract1.Items; for i := 0 to Memo1.Lines.Count -1 do Writeln(f,Memo1.Lines.text); CloseFile(f); ShowMessage(IntToStr(Memo1.Lines.Count -1)); End; El Objetivo es hacer un Dump de la Data a un archivo .txt para pasarlo a través de Internet y mediante el TextDataSet y un IBQuery hacer un Insert múltiple. Esta última parte ya está probada, ahora estoy en lo de contruir el TXT y me ha resultado un lio... Donde está el error? Gracias de antemano. Fer |
#2
|
||||
|
||||
Probablemente estas excediendo la capacidad del Memo1.lines... no podes hacer el ciclo directamente sobre IBExtract1.Items.
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
||||
|
||||
Hola:
Prueba con un TRichEdit con la propiedad PlainText a true y la propiedad WordWrap a false. Saludos. |
#4
|
|||
|
|||
Si, el Memo tenia tal vez que ver, pero el problema estaba en mi desconocimiento de el TString (tan usado y en tantos años no habia tenido que usarlo, asi es la vida), pues ven el for?, No hay que usarlo, solo una vez escribir en el archivo y ya, me traslada todo lo que tiene el Items de una vez.
Gracias por las respuestas. Fer |
|
|
|