Código Delphi [-]procedure TFAuditoria.BitBtn1Click(Sender: TObject); Var PruebaXLS : TExportarXLS_MultiHilo; begin PruebaXLS := TExportarXLS_MultiHilo.create('c:\Datos\test.ppp',Self.SGDatos); PruebaXLS.FreeOnTerminate:=True; PruebaXLS.Resume; end;
procedure TFAuditoria.BitBtn1Click(Sender: TObject); Var PruebaXLS : TExportarXLS_MultiHilo; begin PruebaXLS := TExportarXLS_MultiHilo.create('c:\Datos\test.ppp',Self.SGDatos); PruebaXLS.FreeOnTerminate:=True; PruebaXLS.Resume; end;