Reindex y Pack a tablas dbase IV con Delphi
 

Hola

Quiero hacer Reindex y Pack a tablas dbase IV con Delphi, algun componente que me lo permita por programacion ?

Se que hay varias utilerias, pero necesito hacerlo con codigo.

Cualquier ayuda se agradece.

Checa esto....
 

Prueba este código:

Código Delphi [-]
uses
  DBTables;
....
procedure PackTable(Table : TTable; ReCreateIndexes : Boolean);
begin
  if not (Table.Active and Table.Exclusive) then
    raise EDatabaseError.Create('Tabla Se encuentra Abierta y en Modo Exclusivo....');
  Check(DbiPackTable(Table.DataBase.Handle, Table.Handle,Nil, Nil, ReCreateIndexes));
end;

function Reindexar(Table : TTable):Boolean;
begin
  try
    result:=true;
    Table.Active := False;
    Table.Exclusive := True;
    Table.Active := True;
    PackTable(Table,True);
  except
    result:=false;
  end;
end;

Suerte!!!!

ok...
 

ok...gracias, lo voy a intentar.... por cierto, faltó la unidad BDE en el uses para que el codigo sea funcional.

Saludos.

Disculpa
 

1000 Disculpas, fue una respuesta de BALAZO !!!! :D