Visualizar los registros mientras se van Borrando!!

[sargento elias]

Hola, Buenas tardes.

Me han encargado una pantalla para borrar facturas desde/hasta fecha y desde/hasta número,hasta ahí bien, pero me han pedido que muestre en un label o en otra pantalla el numFact y la FechaFac de los registros mientras se van borrando, la verdad es que no tengo ni idea de como hacerlo.....Ayuda Please...

[marcoszorrilla]

Tienes que montar un bucle para borrar.

1. Pones un filtro a las facturas que vas a borrar.
2. Montas un bucle.

Código Delphi [-]
Application.ProcessMessages;
While Not Facturas.Eof do 
Begin
label1.Caption:=FacturasNumero.Value;
Facturas.Delete;
Facturas.Next;
end;

Lo he puesto de memoria pero más o menos esa es la idea.

Un Saludo.

[Casimiro Notevi]

Tan sólo puntualizar que según la base de datos que estés usando puede que sobre el "Facturas.Next" porque al borrar un registro, el puntero se coloca en la siguiente, así que estarías borrando una sí y una no...
Por lo que el código del compañero marcoszorrilla quedaría más o menos así:

Application.ProcessMessages;
While Not Facturas.Eof do 
Begin
  label1.Caption:=FacturasNumero.Value;
  Facturas.Delete;
end;

[marcoszorrilla]

Tiene razón Casimiro, el registro borrado haría que el puntero pasara al siguiente siendo innecesaria la instrucción Next, incluso contraproducente puesto que puede dar lugar a que se elimine un regitro sí otro no.

Un Saludo.

[sargento elias]

Muchas Gracias cracks.

[paladincubano]

No se te olvide poner dentro del bucle Application.ProcessMessage;