Erro em tabela Paradox... Index is out date...

Olá

Tabelas em paradox são complicadas mesmo. Como diz um colega aqui do forum ´PIRADOX´. Qualquer problema tipo queda de energia, desligar o computador com o programa aberto, etc.. podem ocorrer este erro.
A solução é reindexar os arquivos. Para isso use o database desktop ou faça uma rotina de reindexação dentro do seu próprio programa.

Como fasso um rotina de reindexação dentro do seu próprio programa.
Alguem poderia me dar um exemplo pois sou novato e não tenho nem ideia de como a fazer...

é bem simples.

Use a função deletefile para apagar todos os indices da pasta onde estão os arquivos e mantenha apenas os arquivos ´*.db´.

ex : deletefile(´tabela.px´)
deletefile(´tabela.xg0´)

Depois vc. terá que recriar os indices. ex :

table1.AddIndex(´PrimaryIndex´,´Cod´,[ixPrimary,IxUnique]);
table1.AddIndex(´Ind1´,´Descricao´,[ixCaseInsensitive]);

Claro, este é um exemplo bem simples. No seu caso com certeza tem muitas tabelas e para apagar indice por indice seria bem complicado, então pode usar outros recursos, como usar um componente filelistbox e filtrar por uma mascara (*.px / *.x*) depois em um for mandar deletar tudo, ou até usar apis do windows.
Agora é só incrementar.

Obrigado !!
Vo tentar fazer isso........

ps. Os arquivos .mb tbm. tem que ficar. São os arquivos onde estão os campos memo.