Borrado total de Registros en tablas DBF

[Roilo]

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.

[Neftali [Germán.Estévez]]

Empezado por Roilo

¿Cómo es posible que el propio equipo de moderadores del Foro no se halla puesto para esto?

¿Que no nos hayamos puesto a qué?

[Roilo]

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.

[Neftali [Germán.Estévez]]

Empezado por Roilo

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.

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.

[Roilo]

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.

[Roilo]

Empezado por Roilo

Sería conveniente que me tomaras como un programador amigo y no como un impertinente.

En verdad hoy me veo como un impertinente al leer de nuevo este Hilo. discúlpenme.
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.