Borrado total de Registros en tablas DBF
 

No son pocos los Temas que hablan sobre el borrado total de registros en tablas DBF. Ahora, tengo preguntas que quisiera compartir :
¿Cómo es posible que una librería tan potente como la de Delphi, no tenga ya una función definida para esto, y tengamos que estar dependiendo del PACK de FoxProw ?
¿Cómo es posible que el propio equipo de moderadores del Foro no se halla puesto para esto ?
Si es que no he comprendido bien todo lo que se ha debatido sobre el tema me disculpan, sinceramente, pero sí quisiera escuchar algunas opiniones que me ayuden a salir de este bache.
Gracias de antemano. Un abraso.

¿Que no nos hayamos puesto a qué?

Saludos.
 

Nada. Me preguntaba si alguno de ustedes podría pensar en la posibilidad de hacer la funcion pack del foxProw y adaptarla al Delphi. No tendríamos que preocuparnos más por el tema. Sólo queremos eliminar completamente un registro de una tabla DBF.
Bueno. Un abraso para todos y gracias por responder.

Creo que confundes a "Moderadopres del Foro" con "Programadores gratuítos dispuestos a realizar todas las funciones que los usuarios necesiten con todo el tiempo disponible del mundo". ¿?¿?¿?¿?¿

Moderamos los foros, e intentamos responder las preguntas que sabemos; Exactamente igual que el resto de los usuarios.

Revisa éste hilo.

Saludos
 

Sería conveniente que me tomaras como un programador amigo y no como un impertinente. En realidad quiero saber si han estudiado algo más a fondo sobre el tema, sólo eso. y por favor no quisiera que la próxima respuesta sea una clase sobre las funciones, deberes o intereses de nadie, si fuera posible.
con todo respeto.

En verdad hoy me veo como un impertinente al leer de nuevo este Hilo. discúlpenme.:o
Bueno encontré una solución para eliminar físicamente los registros de una tabla (funciona para tablas DBF). La encontré en el Trucomanía. (para el que no lo conoce http://www.q3.nu/trucomania/).

SOLUCION:
-Incluye 'DBE' en el uses de tu form
-y utiliza esta funcion para compactar la tabla:

Código Delphi [-]
procedure PackDBF(Tabla: TTable);
begin 
 Check(DbiPackTable(Tabla.DBHandle, Tabla.Handle, nil, szDBASE, True))
end;

Pero cuidado, para poder compactar la tabla, ésta debera estar abierta en modo exclusivo. Ejemplo:

Código Delphi [-]
{Cerramos la tabla/Close table} 
Table1.Close;
{En Modo exclusivo/Exclusive mode}
Table1.Exclusive:=True;
{Abrimos tabla/Open table}
Table1.Open;
{Compactar/pack}
PackDBF(Table1);
 
{Reabrir tabla/reopen table}
Table1.Close;
Table1.Exclusive:=False;
Table1.Open;

Un abraso al FORO.