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.