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
|