¿Cómo puedo borrar físicamente en dbf's los registros marcados?
(La estructura básica pertene a I. Marteens)
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
PackDbf('tu_alias','tu_tabla.dbf');
end;
Procedure PackDbf(const ADatabase,Atable:String);
begin
With TTable.Create(nil) do
try
DatabaseName:=ADatabase;
TableName:=ATable;
Exclusive:=True;
Open;
Check(DbiPackTable(Database.Handle,Handle,'','',True));
finally
Free;
end;
end;