Cita:
Empezado por userlazarus
Hola
Trato de borrar en una DB tipo Dbf los registros que tengan
un determinado campo vacío. Utilizo el siguiente código pero
no me los borra todos y no logro saber el porqué.
Utilizo el componente TDbf
Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin Dbf1.Close; Dbf1.Exclusive := True; Dbf1.Open; Dbf1.PackTable; Dbf1.First; While not Dbf1.EOF do if Dbf1.FieldByName('C_CONCEPTO').AsString = '' then begin Dbf1.Delete; Dbf1.Next; end else Dbf1.Next; end;
Gracias.
|
Puede ser que tengas en el campo C_CONCEPTO espacios en algunos, y como haces la comparación con cadena vacía ( ='' ), se los salta.