Ver Mensaje Individual
  #6  
Antiguo 16-05-2008
Avatar de brakaman
[brakaman] brakaman is offline
Miembro Premium
 
Registrado: ago 2006
Ubicación: Castellon - España
Posts: 289
Reputación: 18
brakaman Va por buen camino
Una curiosidad sobre tu codigo amigo.....


Código Delphi [-]
procedure TfrmPrincipal.btnImportarClick(Sender: TObject);
var
  e: TfrmEspera;
begin
  dm.Table1.First;
  e:= TfrmEspera.Create(self);
  i:= 0;
  e.Show;
  e.Enabled:= True; // Porque utilizas esto si el formulario ya esta Enabled.
  while i < (dm.Table1.RecordCount) do
  begin
      .
      // Código de ingreso de datos
      .
      dm.Table1.Next;
      i:= i + 1;
      e.Refresh;
  end;
  dm.cdsDestino.ApplyUpdates(0);
  e.Enabled:= False; // ¿Porque? Si posteriormente vas a cerrarlo.....
  e.Close;
  e.Free;
end;

Perdona por la intromision pero estoy intrigadisimo... Cotilla que es uno.

Última edición por jhonny fecha: 16-05-2008 a las 23:23:07. Razón: Etiquetas Delphi
Responder Con Cita