Problemas con Extract

[buitrago]

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

[jachguate]

Probablemente estas excediendo la capacidad del Memo1.lines... no podes hacer el ciclo directamente sobre IBExtract1.Items.

Hasta luego.

;)

[abel]

Hola:

Prueba con un TRichEdit con la propiedad PlainText a true y la propiedad WordWrap a false.

Saludos.

[buitrago]

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