Exportar a TXT-Mejorar rendimiento

[jachguate]

En principio, el código que te envío debiera ejecutarse mas rápido... probalo e informanos de la diferencia en el desempeño.

Código Delphi [-]
procedure TfrmGenerador.salvar_txt(Datos: Tdataset);
var
  I: Integer;
  Registro: string;
  Strs: TStringList;
begin
  Strs := TStringList.Create;
  Datos.DisableControls;
  try
    Datos.First;
    while not Datos.Eof do
    begin
      Registro := '';
      for I := 0 to Datos.FieldCount - 1 do
        Registro := Registro + ',' + Datos.Fields[i].AsString;
      Delete(Registro, 1, 1);
      Strs.Add(Registro);
      Datos.Next;
    end;
    Strs.SaveToFile(ExtractFileDir(Application.ExeName) + '\tmp\Datos.txt');
  finally
    Strs.Free;
    Datos.EnableControls;
  end;
end;

Saludos.

[delphi.com.ar]

Prueba esto:
http://www.clubdelphi.com/foros/show...46&postcount=4

[jachguate]

Empezado por delphi.com.ar

Prueba esto:

Federico... ¿estas seguro que esto trabaja con interbase/firebird?

lo digo, porque al parecer, ese es el origen de los datos:

Empezado por andresenlared

Necesito mejorar el rendimiento al exportar datos de un Objeto SimpleDataset de los IBexpert

Hasta luego.

[delphi.com.ar]

Empezado por jachguate

Federico... ¿estas seguro que esto trabaja con interbase/firebird?

lo digo, porque al parecer, ese es el origen de los datos:

Pues no.. es algo exclusivo de MS SqlServer, no me percaté del detalle. Respondí ciegamente ya que la pregunta se encuentra dentro del foro de Sql Server.

Saludos!

[andresenlared]

Muchas gracias Juan Antonio por tu colaboración, es super eficiente

[jachguate]

por casualidad mediste los tiempos... ¿que tanto mejoró?

[andresenlared]

Te cuento que paso de 20 minutos a 3 o 4 segundos...super mejoro...si tienes sitios de internet donde pueda aprender mas sobre temas relacionados ...te lo agradeceria