Reindexar Tabela

[gleiston]

estou a procura de algum código para reindexar minhas tabelas no inicio da aplicação, em função de constante queda de energia.

[Darlan]

Procedure Reindexar(DataBase : TDatabase; Tabela : TTable);

var

List : TStrings;

i : Integer;

begin

try

Database.Connected:=true;

except

Raise;

Exit;

end;

List:=TStringList.create;

session.GetTableNames(DataBase.aliasName, '', true, false,List);

for i:= 0 to List.Count - 1 do

begin

if (Entidade2) then

break;

application.ProcessMessages;

Tabela.close;

Tabela.TableName:=List;

Try

Tabela.open;

Check(dbiRegenIndexes(Tabela.Handle));

except

Raise;

end;

end;

List.Free;

Database.Connected:=false;

end;

Para executar a rotina você pode Incluir quando sua aplicação esta sendo iniciada

Adicionando a seguinte linha.

No evento oncreate do Datamodulo

Reindexar(Dados,Table1); //Dados Nome imposto por mim ao componente Database e Table1 o componente inserido na aplicação.

[gleiston]

na hora de compilar o delphi não encontra o item (Entidade2), o que é isto.

[gleiston]

Darlan, a que se refere o item Entidade2, por favor, está dando erro na compilãção.