Buenas tardes, tardes!
me pasa algo curioso. Tengo un par de tablas relacionadas, de las que quito unos cuantos registros, dependiendo de la variable indice pasada como parametro.
El borrado lo hace bien en ambas tablas (tengo menos registros en ambas), pero el tamaño de los ficheros no decrece, que es preecisamente lo que buscaba al borrar registros.
¿Me puede alguien explicar el porque?
¡¡Gracias!!
Código:
procedure TForm1.clarear(indice:integer);
begin
table2.Open;table2.First;
table3.open;table3.First;
table2.edit;table3.edit;
while table2.Fieldbyname('Id').asinteger < indice do
begin
while table3.FieldByName('Id').asinteger =
table2.FieldByName('Id').asinteger do
begin
table3.Delete;
end;
table2.Delete;
end;
table2.close; table3.close;
end;