Ver Mensaje Individual
  #4  
Antiguo 12-07-2006
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.079
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
entonces, lo que sobra de la "primera versión" que has puesto es el "next" en caso de borrar...

Código:
While not Dbf1.EOF do
  if Dbf1.FieldByName('C_CONCEPTO').AsString = '' then
  begin
    Dbf1.Delete;
    Dbf1.Next;    <---- quita esta línea ------<
  end
  else
    Dbf1.Next;
porque en caso de borrar, se posiciona en el siguiente, pero al poner "next", se lo salta y va al otro que sigue, o sea, cada vez que borras una línea te estás saltando otra.
Responder Con Cita