Reindex y Pack a tablas dbase IV con Delphi

[Ing_Fajardo]

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.

[AGAG4]

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!!!!

[Ing_Fajardo]

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

Saludos.

[AGAG4]

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