Foros Club Delphi - Insert automatico despues de Delete

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Insert automatico despues de Delete (https://www.clubdelphi.com/foros/showthread.php?t=3725)

Insert automatico despues de Delete

Hola

Me pasa una cosa muy rara:

Tengo 4 tablas paradox y tengo botones personalizados para gestionarla. Pues bien, en un BotonBorrar Tengo es siguiente codigo:

If Tabla.RecordCount > 0 then
Begin

Tabla.Edit;
Tabla.Post;

End Else ShowMessage('NO EXISTEN REGISTROS');

Pues el Message no se muestra nunca. Siempre se queda un registro sin valor en ningun campo. Y cada vez que le doy a eliminar me incrementa el codigo autoincrementable, osea me hace un post. Nunca me habia pasado esto. Es muy raro.

Las tablas tienen en el evento AfterPost este codigo:

para estar seguro de que los datos se escriben en la tabla fisicamente. Pense que pudiera ser este codigo, pues hasta ahora no lo habia usado, pero tampoco es eso.

¿Que puede ser?

Hola:

Para borrar un registro debes hacer uso del método Delete:

Código:

If NOT Tabla.IsEmpty  then

  Tabla.Delete

else ShowMessage('NO EXISTEN REGISTROS');

Además, mira que uso la propiedad IsEmpty, en vez de RecordCount, es más fiable y según qué motores, RecordCount puede dar problemas de lentitud/inexactitud.

Gracias Andres :)

Desconocia IsEmpty, genial. Pero ocurre lo mismo, pero ya se porque era. Resulta que antes y despues del Delete tenia colocados un Tabla.Edit; Lo quite dejando solo el codigo que tu me das y se solucionó.

Saludos